>LOCAL lScreenVisible >lScreenVisible = _screen.Visible >_screen.Visible = .F. && or even better "screen=off" in a config.fpw > >LOCAL oLoginForm as Form >oLoginForm = CREATEOBJECT('LoginForm') >oLoginForm.Show() >READ EVENTS > >LOCAL lLoginSuccess >IF VARTYPE(m.oLoginForm) = 'O' > lLoginSuccess = m.oLoginForm.lSuccess > oLoginForm.Release() >ENDIF > >LOCAL oMainForm as Form >IF m.lLoginSuccess > oMainForm = CREATEOBJECT('MainForm',m.lScreenVisible) > oMainForm.Show() > READ EVENTS >ENDIF > >RETURN > > >DEFINE CLASS LoginForm as Form > ShowWindow = 2 > AutoCenter = .T. > Caption = "Login Form" > lSuccess = .F. > > ADD OBJECT cmdCancel as CommandButton WITH ; > Left = 150, Top = 200, Height = 24, Caption = "Cancel" > PROCEDURE cmdCancel.Click() > CLEAR EVENTS > ENDPROC > ADD OBJECT cmdSuccess as CommandButton WITH ; > Left = 50, Top = 200, Height = 24, Caption = "Login" > PROCEDURE cmdSuccess.Click() > Thisform.lSuccess = .T. > CLEAR EVENTS > ENDPROC >ENDDEFINE > >DEFINE CLASS MainForm as Form > ShowWindow = 2 > AutoCenter = .T. > Caption = "Main Form" > lScreenVisible = .F. > > ADD OBJECT cmdCancel as CommandButton WITH ; > Left = 150, Top = 200, Height = 24, Caption = "Close" > PROCEDURE cmdCancel.Click() > CLEAR EVENTS > Thisform.Release() > ENDPROC > > PROCEDURE Init(tlScreenVisible) > This.lScreenVisible = m.tlScreenVisible > ENDPROC > PROCEDURE Destroy > _screen.Visible = This.lScreenVisible > ENDPROC >ENDDEFINE >>