Private Sub Command1_Click()
Do While (True)
If Text1 = "tunasmedia" And Text2 = "rahasia" Then
pesan = MsgBox("Password Benar")
End
Else
pesan = MsgBox("Password Salah.. ulangi lagi")
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Do
End If
Loop
End Sub
0 Response to "Membuat Aplikasi VB 6 Password"
Posting Komentar
Yuk stop jadi silent reader, tanpa komentar gan/sis blog ini bukan apa-apa