SELECT good_con FROM Connect WHERE default INTO ARRAY lax IF lax[1,1] = .F. DO FORM connection WITH .T. && make it modal *-- Capturing the .T. value in the INIT() for form and doing This.Show(1) if modal ENDIF oMainform = NEWOBJECT( "frmtsmain", "frmtsmain.vcx" ) IF VARTYPE(oMainForm) = "O" oSplash.Release() oMainform.show() ON SHUTDOWN clear events READ events ON Shutdown ENDIF