Loggin Form
Listing Program
Private Sub Command1_Click()
Do While (True) If Text1 = "Nama Saya" And Text2 = "Rahasia" Thenpesan = MsgBox("Password Benar") End Else pesan = MsgBox("Password Salah.. ulangi lagi")Text1.Text = ""Text2.Text = ""Text1.SetFocusExit DoEnd IfLoopEnd Sub
Salam
DUNIA-VB
Bagikan
Koding Loggin Pada VB
4/
5
Oleh
Vainit
1 comments:
Tulis commentsgan knapa gak diposting dengan designnya juga kan supaya lebih jelas :D
Reply