Public oform1 oform1=Newobject("form1") oform1.Show Return Define Class form1 As Form Name = "Form1" Add Object check1 As Checkbox With ; Top = 50, ; Left = 39, ; Height = 17, ; Width = 161, ; Caption = "Set Notify On", ; Value = ( Set('notify') = "ON"), ; Name = "Check1" Add Object command1 As CommandButton With ; Top = 112, ; Left = 53, ; Height = 27, ; Width = 84, ; Caption = "Wait window", ; Name = "Command1" Add Object text1 As TextBox With ; ControlSource = " (Set('Notify'))", ; Height = 23, ; Left = 196, ; Top = 17, ; Width = 100, ; Name = "Text1" Procedure check1.Click If This.Value Set Notify On Else Set Notify Off Endif Thisform.Refresh() Endproc Procedure command1.Click Wait "Can you see me?" Window Endproc Enddefine * *-- EndDefine: form1 **************************************************