Daily Video

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "123456" And TextBox2.Text = "Jonathan" Then MsgBox("Logado") Else MsgBox("O nome de usuário ou a senha está incorreta") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Close() End Sub End Class