11 lines
344 B
VB.net
11 lines
344 B
VB.net
Public Class PasswortabfrageLogin
|
|
Private Sub CmdLogin_Click(sender As Object, e As EventArgs) Handles CmdLogin.Click
|
|
If TxtPasswort.Text = "BmWr501956" Then
|
|
Main.Show()
|
|
Me.Close()
|
|
Else
|
|
MsgBox("Nein, das war falsch!")
|
|
Application.Exit()
|
|
End If
|
|
End Sub
|
|
End Class |