22 lines
500 B
VB.net
Executable File
22 lines
500 B
VB.net
Executable File
Public Class Form3
|
|
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
|
|
|
|
If TextBox1.Text = My.Settings.adminPass Then
|
|
Form4.Show()
|
|
Me.Close()
|
|
Else
|
|
MsgBox("Introdu Parola de admin corecta")
|
|
TextBox1.Clear()
|
|
TextBox1.Focus()
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub FlowLayoutPanel1_Paint(sender As Object, e As PaintEventArgs) Handles FlowLayoutPanel1.Paint
|
|
|
|
End Sub
|
|
End Class |