Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a As MsgBoxResult
If TextBox1.Text = "admin" And TextBox2.Text = "admin" Then
a = MsgBox("Welcome Admin", vbInformation)
Form2.Show()
Else
a = MsgBox("Something's Wrong", vbCritical)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Dim a As MsgBoxResult
If TextBox1.Text = "admin" And TextBox2.Text = "admin" Then
a = MsgBox("Welcome Admin", vbInformation)
Form2.Show()
Else
a = MsgBox("Something's Wrong", vbCritical)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub