Public Class LoginForm1
 
    ' TODO: Code zum Durchführen der benutzerdefinierten Authentifizierung 
    ' mithilfe des angegebenen Benutzernamens und des Kennworts hinzufügen 
    ' (Siehe http://go.microsoft.com/fwlink/?LinkId=35339).  
    ' Der benutzerdefinierte Prinzipal kann anschließend wie folgt an den 
    ' Prinzipal des aktuellen Threads angefügt werden: 
    '     My.User.CurrentPrincipal = CustomPrincipal
    ' wobei CustomPrincipal die IPrincipal-Implementierung ist, die für die 
    ' Durchführung der Authentifizierung verwendet wird. 
    ' Anschließend gibt My.User Identitätsinformationen zurück, die in das 
    ' CustomPrincipal-Objekt gekapselt sind,
    ' z.B. den Benutzernamen, den Anzeigenamen usw.
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles OK.Click
 
        Me.Close()
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
 
    Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class