Do FORM Login >READ EVENTS>It does not wrok
>>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.