WITH NEWOBJECT("form1") .Show WAIT WINDOWS "Waiting: the controlsource don't support NULL" TIMEOUT 2 KEYBOARD '{CTRL+0}' PLAIN CLEAR DOEVENTS WAIT WINDOWS "Look that a CTRL+0 show a dimmed check, without errors " TIMEOUT 10 ENDWITH DEFINE CLASS form1 AS form SHOWWINDOW = 2 Caption = "CTRL+0 on Boolean checkbox" Name = "Form1" ADD OBJECT check1 AS checkbox WITH ; Top = 72, ; Left = 94, ; Height = 17, ; Width = 60, ; Alignment = 0, ; Caption = "Check1", ; ControlSource = "SOME.CHECKF", ; Name = "Check1" ADD OBJECT text1 AS textbox WITH ; Enabled = .F., ; Height = 23, ; Left = 72, ; Top = 120, ; Width = 142, ; DisabledForeColor = RGB(0,0,255), ; NullDisplay = "NULL", ; Name = "Text1" PROCEDURE Load CREATE CURSOR SOME (CHECKF I NOT NULL) INSERT INTO SOME VALUES (1) ENDPROC PROCEDURE check1.REFRESH THISFORM.TEXT1.VALUE = THIS.VALUE ENDPROC PROCEDURE check1.InteractiveChange THISFORM.TEXT1.VALUE = THIS.VALUE ENDPROC ENDDEFINE