*--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