Fabio,

Here's a simple test that demonstrates the unwanted bolding behavior of transparent checkboxes. I'm working on a similar test for labels.

Note that neither sys(602,0) or sys(602,0) followed by a sys(602,1) fix this problem (as my previous post in this thread mistakenly indicates)

Hold down the Spacebar or MouseButton while checkbox has focus. Or keep clicking the checkbox control to see the bolding.

If you uncomment my This.Refresh() statements, you can see a partial workaround to this unwanted behavior.

loForm = createobject( "clsForm" )
loForm.Show( 1 )

define class clsForm as Form

	AutoCenter = .T.
	Height = 300
	Width = 300

	add object label1 as label with ;
	  AutoSize = .T., ;
	  Backstyle = 0, ;
	  Caption = "Watch me get bolder", ;
	  Left = 10, ;
	  Top = 10
	    
	add object checkbox1 as checkbox with ;
	  AutoSize = .T., ;
	  Backstyle = 0, ;
	  Caption = "Hold down spacebar to watch me get bolder", ;
	  Left = 10, ;
	  Top = 30

	add object button1 as commandbutton with ;
	  AutoSize = .T., ;
	  Caption = "I don't do anything", ;
	  Left = 10, ;
	  Top = 60
	    
	* UNCOMMENT This.Refresh() statements for partial workaround.

	function checkbox1.mouseleave
	LPARAMETERS nButton, nShift, nXCoord, nYCoord
		* This.Refresh()
	endfunc
	
	function checkbox1.interactivechange()
		* This.Refresh()
	endfunc

	* perhaps your KeyDown() code might be a better place for this?
	function checkbox1.keypress
	LPARAMETERS nKeyCode, nShiftAltCtrl
		* This.Refresh()
	endfunc

enddefine

Malcolm