Article ID: 193472
Article Last Modified on 11/15/2005
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
READ EVENTS
RETURN
DEFINE CLASS form1 AS form
ShowWindow = 2
AutoCenter = .T.
Caption = "Form1"
Name = "form1"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 180, ;
Left = 144, ;
Height = 27, ;
Width = 84, ;
Caption = "Quit", ;
Name = "Command1"
PROCEDURE QueryUnload
Release thisform
CLEAR EVENTS
ENDPROC
PROCEDURE command1.Click
Release thisform
CLEAR EVENTS
ENDPROC
ENDDEFINE
SCREEN = OFF
Keywords: kbbug kbfix kbcontainer kbdcom kbctrl kbvs600sp3fix KB193472