Attribute VB_Name = "Global"
Global PclsUser As Object

Public Sub main()

   Set PclsUser = CreateObject("Medsys_User.clsCurrentUser", "")
   PclsUser.ShowMain
   
   If PclsUser.connected Then
   frmPatientLookup.Show
   End If
   
End Sub