>*--Main.prg > >DO FORM frmLogin >lcResp = frmLogin.lcReturnValue >frmLogin.RELEASE() > >IF lcResp = "FAILED-" > RETURN .F. >ENDIF > >DO FORM frmMain NAME frmMain >READ EVENTS > > >*--frmLogin's property > >#INCLUDE "c:\windows\desktop\shc-membership\resources\messagebox.h" >* >DEFINE CLASS frmlogin AS modalformbase > ShowWindow = 1 > DoCreate = .T. > Closable = .F. > MDIForm = .F. > Icon = "..\graphics\xpuser-key.ico" > AlwaysOnTop = .T. > lcreturnvalue = ("") > Name = "FRMLOGIN" > >ENDDEFINE >* >*-- EndDefine: frmlogin >************************************************** > >DEFINE CLASS modalformbase AS formbase > Height = 250 > Width = 375 > DoCreate = .T. > AutoCenter = .T. > Caption = "Base Modal Form" > Desktop = .T. && I tried to set desktop as .T. and .F., but don't work > MaxButton = .F. > MinButton = .F. > WindowType = 1 > Name = "modalformbase" > lcreturnvalue = .F. >ENDDEFINE > >>