PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************* DEFINE CLASS form1 AS form Height = 233 Width = 375 DoCreate = .T. AutoCenter = .T. Caption = "Test Form" Name = "Form1" ADD OBJECT label1 AS label WITH ; Caption = "Some Text:", ; Height = 24, ; Left = 12, ; Top = 55, ; Width = 61, ; TabIndex = 5, ; Name = "Label1" ADD OBJECT text1 AS textbox WITH ; Height = 37, ; Left = 79, ; TabIndex = 1, ; Top = 48, ; Width = 217, ; Name = "Text1" ADD OBJECT cmdNone AS commandbutton WITH ; Top = 96, ; Left = 120, ; Height = 37, ; Width = 145, ; Caption = "Go Nowhere!", ; TabIndex = 2, ; Name = "CmdNone" ADD OBJECT cmdLeft AS commandbutton WITH ; Top = 144, ; Left = 12, ; Height = 37, ; Width = 157, ; Caption = "Go \<<", ; TabIndex = 3, ; Name = "CmdLeft" ADD OBJECT cmdRight AS commandbutton WITH ; Top = 144, ; Left = 192, ; Height = 37, ; Width = 157, ; Caption = "Go \<>", ; TabIndex = 4, ; Name = "CmdRight" ADD OBJECT cmdExit AS commandbutton WITH ; Top = 192, ; Left = 264, ; Height = 37, ; Width = 85, ; Cancel = .T., ; Caption = "Bye!", ; Name = "cmdExit" PROCEDURE cmdLeft.Click WAIT WINDOW "Go Left!" ENDPROC PROCEDURE cmdRight.Click WAIT WINDOW "Go Right!" ENDPROC PROCEDURE cmdexit.Click thisForm.Release ENDPROC ENDDEFINE