[-Cara-Membuat Login Pada Form-]

Private Sub Command1_Click()
If txt1.Text ="Bima Maniac" And txt2.Text ="123456"end if
MsgBox ("Welcome_For_Login")
Else
MsgBox ("Gagal Login")
MsgBox ("User/Password Anda salah")
End If
txt1.Text = ""
txt2.Text = ""
txt1.SetFocus
End Sub

Private Sub Command2_Click()
Unload Me
End Sub