From: Jofis
Email:weejoejoe@hotmail.com

' MyModule has the following functions/subs
'    Subs:
'   OpenApp(FileName as string)
'           * Opens an application with the filename specified
'           * Use: OpenApp(FileName)
'   DisableCtrlAltDelete(bDisabled As Boolean)
'           * Disables Control Alt Delete Breaking as well as Ctrl-Escape
'           * Use: Call DisableCtrlAltDelete(Boolean)
'   Center(FormName as form)
'           * Centers the specified form
'           * Use: Center(FormName)
'   AlwaysOnTop(FormName as Form, bOnTop as boolean)
'           * Sets the named form as always on top
'           * Use: Call AlwaysOnTop(True)
'   ExitWindows(Mode)
'           * Shutdown or reboots windows
'           * Use: ExitWindows(shutdown)
'           *      ExitWindows(reboot