OK, simply using PaintRect() does the trick. All I need to do now is 
determine if system appearance prefs are set to blue or graphite.

Any help appreciated.

Thanks
Bernie



'----------
dim as Rect     r
dim as RGBColor rgb
dim as OSStatus ignore

SetRect(r, 236, 107, 586, 207)
appearance window 1, "Theme Text Highlight Test", @r, 
_kDocumentWindowClass
def SetWindowBackground(_kThemeActiveDialogBackgroundBrush, _zTrue)

SetRect(r, 20, 42, 92, 58)
rgb.red = 12336 : rgb.green = 25443 : rgb.blue = 45232
RGBForeColor(rgb)
InsetRect(r, -8, -3) : PaintRect(r) : InsetRect(r, 8, 3)
color _zWhite
ignore = fn DrawThemeTextBox(fn CFSTR("Menu Title"), 
_kThemeMenuTitleFont, _kThemeStateActive, _true, r, _teJustLeft, _nil)
color _zBlack

do
HandleEvents
until gFBQuit
'----------


I asked:

> Hi Boys,
> You know when we click on a menu in the menu bar and the text turns 
> white on a blue background?... How do I get my theme text box to look 
> like that?
> TIA
> '----------
> <code snip>
> '----------