oForm = createobject('Form')
oForm.AddObject("cmdExit", "MyButton")
oForm.Visible = .T.
oForm.cmdExit.Visible = .T.
* Print first message
oForm.Print("Hello Word!!!")

* Change position of print
oForm.CurrentX = 100
oForm.CurrentY = 50
* Print second message
oForm.Print("Hello Word 2!!!")

Read Events

Return


Define Class MyButton As CommandButton
	Left = 100
	Top = 150
	Height = 25
	Caption = "\<Exit"
	
	Procedure Click
		thisform.release()
		Clear Events
	EndProc
EndDefine