Public Class Form1
Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
If password.Text = "1980" Then
mu.Show()
Me.Hide()
Else
MsgBox("Maaf Password anda masih salah !!!")
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
Tidak ada komentar:
Posting Komentar