* Main.prg public g_ConfigId, g_Privileges, g_User local OldTalk, OldStatus, OldCentury, OldError, OldDelete, OldMultiLocks, OldBell local OldSafety, OldStatusbar, OldNotify set sysmenu off OldTalk = set('Talk') set talk off OldStatus = set('Status') OldCentury = set('Century') OldError = on('Error') OldDelete = set('Deleted') OldMultilocks = set('Multilocks') OldBell = set('Bell') OldSafety = set('Safety') OldStatusbar = set('Status bar') OldNotify = set('Notify') on shutdown quit _screen.windowstate = 2 _screen.caption = 'Your App Title' _screen.visible = .T. _screen.icon = 'AppIcon.ico' if getenv('VFPTEST') = '.T.' set resource on else set resource off endif clear close databases all close all hide window all && will hide the project manager if it's open if wexist('Standard') hide window Standard && hide standard toolbar if it's open endif if wexist('Form Controls') && hide form controls toolbar if it's open hide window Form endif set path to C:\VFPData; data; source do SetSets do FileChk set classlib to PCsSpecial do form Splash && This form is not top-level and is not modal do form Login to g_ConfigId && This form is modal g_Privileges = GetPrivs(g_ConfigId) g_User = GetUser(g_ConfigId) set sysmenu on set sysmenu automatic do main.mpr if getenv('VFPTEST') = '.T.' do cancel.mpr endif read events set status &OldStatus set talk &OldTalk set century &OldCentury on error &OldError set deleted &OldDelete set multilocks &OldMultilocks set bell &OldBell set safety &OldSafety set sysmenu to default set status bar on set notify on on error return *------------------------------------------------------------------------------>Hi,