Public Class frmPasswort
 
    Dim lblPass As New Label With _
          {.Parent = Me, .Text = "Passwort: ", .Top = 40, .Width = 100}
    Dim WithEvents txtPass As New TextBoxPW With _
          {.Parent = Me, .Top = 40, .Width = 200, .Left = 105}
    Dim lblInfo As New Label With _
          {.Parent = Me, .Top = 80, .Width = 300}
 
 
    Private Sub frmPasswort_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(320, 300)
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog
    End Sub
 
 
 
    Private Sub txtPass_Done(sender As Object, e As System.EventArgs) Handles _
      txtPass.Done
 
        Static counter As Integer = 0
 
        Dim userinput As String = txtPass.Text
 
        Dim password As String = ""
 
        Using sr As New IO.StreamReader("Pfad der PasswortDatei")
            password = sr.ReadLine()
        End Using
 
        'Passwort entschlüsseln
        Dim password_encrypted As String = password '???
 
        If password_encrypted = userinput Then
            Me.DialogResult = Windows.Forms.DialogResult.OK
            Me.Close()
        ElseIf counter < 3 Then
            counter += 1
            lblInfo.Text = "Das Passwort ist falsch"
        Else
            Me.DialogResult = Windows.Forms.DialogResult.Cancel
            Me.Close()
        End If
    End Sub
End Class