Article ID: 191644
Article Last Modified on 5/10/2003
oForm=CREATEOBJECT("test1")
oForm.VISIBLE=.T.
READ EVENTS
DEFINE CLASS test1 AS FORM
NAME="test1"
WHATSTHISHELP=.T.
ADD OBJECT 'btnClose' AS COMMANDBUTTON
PROCEDURE INIT
THIS.btnClose.LEFT=50
THIS.btnClose.TOP=100
THIS.btnClose.HEIGHT=20
THIS.btnClose.VISIBLE=.T.
ENDPROC
PROCEDURE btnClose.CLICK
CLEAR EVENTS
RELE THISFORM
ENDPROC
ENDDEFINEAdditional query words: kbVFp600bug kbCtrl kbContainer kbVFp300bbug kbVFp500abug
Keywords: kbbug kbnofix kbcode KB191644