>I am trying to get the following PRG code to work
>It runs but the form will not release
>
>Thanks in advance
the following changes fix the problem:

xTmpFormMess = CREATEOBJECT("ApMess","Running Installation Please Wait...")
*  Show form after init has finished
xTmpFormMess.Show()

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
*  Don't start or trigger the timer during init
thisform.tmrmess.enabled = .f.
thisform.tmrmess.reset()
ENDPROC

PROCEDURE SHOW
*  set up the timer to start when form is shown
thisform.tmrmess.enabled = .t.
ENDPROC
ENDDEFINE