>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()
Try adding
ThisForm.tmrMess.Enabled = .T.here, so that the timer control is started.
> ENDPROC
>ENDDEFINE