Public Class LoginForm1
    'Dieses Form vergleicht die eingegebenen Userinformationen
    'mit der Datenbank und überprüft, welche Rechte dem User
    'zugewiesen werden
 
    Private Sub LoginForm1_FormClosing(ByVal sender As Object, _
    ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing
        'Diese Form öffnet ein Fenster,
        'wenn ein Button betätigt wird,
        'der das Programm schließt und
        'fragt nach, ob es wirklich geschlossen werden soll
        Dim dr As DialogResult = _
        MessageBox.Show("Wollen Sie die Anwendung beenden?", _
        "WatchGuard", _
        MessageBoxButtons.YesNo, _
        MessageBoxIcon.Question, _
        MessageBoxDefaultButton.Button2)
        ' wird im Meldungsfenster die Schaltflächen 'Nein'
        ' geklickt, wird der Schließvorgang abgebrochen
        If (dr = System.Windows.Forms.DialogResult.No) Then
            e.Cancel = True
        End If
    End Sub
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles OK.Click
        'Wird der Button "Okay" betätigt,
        'wird die Routine LoginForm1 versteckt und
        'daraufhin die Routine Form1 aufgerufen
        Me.Hide()
        Form1.Show()
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Cancel.Click
        'Wird der Button "Cancel" betätigt,
        'wird das Programm beendet
        Form1.Close()
        ConForm.Close()
        Me.Close()
    End Sub
 
    Private Sub LogoPictureBox_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles LogoPictureBox.Click
        'Zeigt das Bild links neben dem Login an
 
    End Sub
 
    Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load, OK.Enter
 
    End Sub
 
End Class