Disable the blue highlighting for tabs?

Argh, this is so annoying.

BlitzSupport:
I took your advice and tried calling SetWindowPos to be sure, even though I thought the SetGadgetShape should be enough to trigger the change, but no dice. The appearance of the tabber doesn't change.

Function Test(Gadget)

	Local GWL_STYLE        = -16
	Local WS_CHILD         = $40000000
	Local WS_CLIPCHILDREN  = $02000000
	Local TCS_FOCUSNEVER   = $8000
	Local WS_VISIBLE       = $10000000
	Local HWND_TOP         = 0				; Place window at top of Z order.
	Local SWP_NOSIZE       = 1
	Local SWP_NOMOVE       = 2
	Local SWP_NOZORDER     = 4		
	Local SWP_FRAMECHANGED = 20
	
	Blah = SetWindowLong(QueryObject(Gadget, 1), GWL_STYLE, WS_CHILD Or WS_CLIPCHILDREN Or TCS_FOCUSNEVER Or WS_VISIBLE)
	Blah = SetWindowPos(QueryObject(Gadget, 1), HWND_TOP, GadgetX(Gadget), GadgetY(Gadget), GadgetWidth(Gadget), GadgetHeight(Gadget), SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER Or SWP_FRAMECHANGED)	
	
End Function