
Public Class Form1
Private Sub btn_masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_masuk.Click
If (LCase(username.Text) = “aulia”) And (LCase(password.Text) = “1234”) Then
menu_utama.Show()
Me.Hide()
Else
MsgBox(“Username/Password Anda Salah !”)
username.Text = “”
password.Text = “”
username.Focus()
End If
End Sub
Private Sub btn_keluar_Click(ByVal...