I have a program that executes a login form. If I run the form it works as expected. If I run the form form for the program "DO FORM login" it stops at the init method which has the following code in it

PUBLIC gnuseridcnt , gnpasswordcnt , lcweekday
LOCAL x 

gnuseridcnt		= 0
gnpasswordcnt	= 0
gnUserLev		= 0
m.glValid		= .F.

Thisform.lblErrorMsg.Caption	= ''
Thisform.lbltoday.Caption		= 'Today is ' + CDOW(DATE()) + ', ' + ;
		CMONTH(DATE()) + ' ' + STR(DAY(DATE()),2) + ', ' + STR(YEAR(DATE()),4)
Thisform.lblPC.Caption			= 'You are using a ' + SYS(17) + ' PC'

IF ! USED('sysuse')
	USE (gcDATA) + '\sysuse' ORDER TAG cid ALIAS sysuse
	SELECT sysuse
ELSE
	SELECT sysuse
	SET ORDER TO TAG cid
ENDIF

x = 1

I can add the "DODEFAUL()" command with out any change in behavior. The x = 1 is there so I could have a place to stop in the debugger.

I am stumped. Any help appreciated.