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 enddefineMalcolm