lia.aliya@hotmail.com
TOMBOL OK
Private Sub Command1_Click()
Dim ulangi As Boolean
ulangi = True
Do While (ulangi)
If (Text1.Text = "labkomb" And Text2.Text = "123456") Then
MsgBox "GOOD! it's MATCH!!", vbInformation, "I LIKE IT!!"
Unload Form1
Form2.Show
ulangi = False
Else
MsgBox "salah tuh passwordnya!", vbExclamation, "NACHHH lhooo!!"
Text1.Text = " "
Text2.Text = " "
Text1.SetFocus
Exit Do
ulangi = True
End If
Loop
End Sub
TOMBOL KELUAR
Private Sub Command2_Click()
Unload Me
End Sub
