Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, e As EventArgs) Handles [Link]
Dim username As String
Dim Password As String
username = [Link]
Password = [Link]
If [Link]("admin") And [Link]("123") Then
[Link]("Login Success", "Information", [Link], [Link])
[Link]()
Else
[Link]("Error", "Information", [Link], [Link])
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
Close()
End Sub
End Class