COMConnector: frmLogin.frm

This code sample shows logging on to the COM connector:

Option Strict Off
Option Explicit On

Friend Class frmLogin
   Inherits System.Windows.Forms.Form

   Public bLoginEnv As Boolean
   
   Private Sub cmdCancel_Click(ByVal eventSender As System.Object, 
ByVal eventArgs As System.EventArgs) Handles cmdCancel.Click
          'set the global var to false
          'to denote a failed login
          bLoginEnv = False
          Me.Hide()
   End Sub
   
   Private Sub cmdOK_Click(ByVal eventSender As System.Object, 
ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
          'check for correct password
          If txtUserName.Text = "" Or txtenvironment.Text = "" Then
                 bLoginEnv = False
                 MsgBox("Must Enter User Name and Environment to 
continue")
          Else
                 bLoginEnv = True
                 Me.Hide()
          End If
   End Sub
End Class