I am trying to get the following PRG code to work
It runs but the form will not release

Thanks in advance




xTmpFormMess = CREATEOBJECT("ApMess","Running Installation Please Wait...")

DEFINE CLASS apMess AS FORM
DoCreate = .T.
CAPTION = 'Please Note!'
WIDTH = 430
WINDOWTYPE = 1
VISIBLE = .T.
AUTOCENTER = .T.

ADD OBJECT lblZmess AS Label WITH ;
AutoSize = .T., ;
FontSize = 20, ;
Caption = "", ;
Height = 39, ;
Left = 10, ;
Top = 96, ;
Width = 232

ADD OBJECT tmrMess AS TIMER WITH ;
INTERVAL = 3000

PROCEDURE tmrMess.TIMER
THISFORM.RELEASE()
ENDPROC

*-- Form init
PROCEDURE INIT
LPARAMETERS lcMessage
THISFORM.lblZmess.CAPTION = lcMessage
THISFORM.SHOW()
ENDPROC
ENDDEFINE