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 = "Indah" And pwd.Text = "amelia" Then
Form_Menu.Show()
Me.Hide()
Else
MsgBox("MaaF! PAsword Salah!")
user.Text = ""
pwd.Text = ""
End If
End Sub
0 komentar:
Posting Komentar