WITH NEWOBJECT("form1")
	.Show

	WAIT WINDOWS "waiting: Look the NULL value" TIMEOUT 2

	KEYBOARD '{SPACEBAR}' PLAIN CLEAR
	DOEVENTS

	WAIT WINDOWS "waiting: Look the FALSE value" TIMEOUT 4

	KEYBOARD '{CTRL+0}' PLAIN CLEAR
	DOEVENTS


	WAIT WINDOWS "Look that a CTRL+0 show a NULL check, but the Value is TRUE" 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 L NULL)
		INSERT INTO SOME VALUES (NULL)
	ENDPROC


	PROCEDURE check1.REFRESH
		THISFORM.TEXT1.VALUE = THIS.VALUE
	ENDPROC


	PROCEDURE check1.InteractiveChange
		THISFORM.TEXT1.VALUE = THIS.VALUE
	ENDPROC


ENDDEFINE