Component :
-2 Text Box (txtUsername & txtPassword)
-2 Command Button (cmdLogin & cmdCancel)
-2 Form (Form1 & Form2)
Klik 2x ke cmdLogin dan copy code di bwh
If Me.txtUsername.Text = "Lezar-Famous" And Me.txtPassword.Text = "Test" Then
Me.Hide
Form2.Show
Else
MsgBox ("Password Salah")
End IfKlik 2x ke cmdCancel lalu copy code di bwh
Unload Melalu copy code ini di Form 1
Private Sub Form_Load()
cmdLogin.Caption = "Login"
cmdCancel.Caption = "Cancel"
txtPassword.PasswordChar = "*"
End SubTulisan berwarna merah adalah username (Lezar-Famous) , password (Test) , Dan pesan jika passowrd salah (Password Salah)
Silahkan ganti dengan yg di inginkan