PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Top = 0 Left = 2 Height = 212 Width = 353 DoCreate = .T. Caption = "Form1" Name = "Form1" myproperty = .F. ADD OBJECT command1 AS commandbutton WITH ; Top = 96, ; Left = 36, ; Height = 27, ; Width = 84, ; Caption = "MyProperty", ; Name = "Command1" ADD OBJECT command2 AS commandbutton WITH ; Top = 96, ; Left = 204, ; Height = 27, ; Width = 84, ; Caption = "WindowState", ; Name = "Command2" PROCEDURE mymethod DEBUGOUT TIME(), PROGRAM(), Thisform.MyProperty ENDPROC PROCEDURE othermethod DEBUGOUT TIME(), PROGRAM(), Thisform.WindowState ENDPROC PROCEDURE Init BINDEVENT(Thisform, "myproperty", Thisform, "mymethod") BINDEVENT(Thisform, "WindowState", Thisform, "OtherMethod",2) ENDPROC PROCEDURE command1.Click Thisform.myproperty = DATETIME() ENDPROC PROCEDURE command2.Click IF Thisform.WindowState = 0 Thisform.WindowState = 2 ELSE Thisform.WindowState = 0 ENDIF ENDPROC ENDDEFINE