Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        If Me.txtPW_1.Text.ToString <> Me.txtPW_2.Text.ToString Then
            MsgBox("Die Passwwörter stimmen nicht überein!", _
              MsgBoxStyle.Critical)
            Me.txtPW_1.Text.Remove(0)
            Me.txtPW_1.Text.Remove(0)
            Me.txtPW_1.Focus()
            Exit Sub
        Else
Me.Close
End If
End sub