Form Login

Public Class Form1

Private Sub Btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnok.Click
If Username.Text = "Josua" And Password.Text = "jjj" Then
MenuUtama.Show()
Me.Hide()
Else
MsgBox("data username/password salah !!!")
Username.Text = ""
Password.Text = ""
End If
End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class

Share