Kasus : Klik disini
Public Class form_Login
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
Close()
End Sub
Private Sub btnok_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnok.Click
If
user.Text = "Uyach" And pwd.Text = "123"
Then
Form_Menu.Show()
Me.Hide()
Else
MsgBox("MaaF!
PAsword Salah!")
user.Text = ""
pwd.Text = ""
End If
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Form_Menu.Show()
End Sub
Private Sub user_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles user.TextChanged
End Sub
End Class