19 lines
No EOL
584 B
VB.net
19 lines
No EOL
584 B
VB.net
Public Class Login
|
|
|
|
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
If TextBox1.Text = "admin" And TextBox2.Text = "admin" Then
|
|
Panel.Show()
|
|
Me.Close()
|
|
Else
|
|
Me.Close()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
End Class |