Require :
- Label = 2
- TextBox = 2
- Command Button = 2
- Form = 2
Copas Coding Di bawah ini
'Tunggu dan Nantikan Artikel Selanjutnya dari 100 Artikel.blogspot.comAtau Download Projectnya Download Now
Private Sub Command1_Click()
If Text1 = "100" And Text2 = "artikel" Then 'id Dan Passwordnya
Form2.Show
Unload Me
Else
MsgBox "Password Anda Salah", vbCritical, "Wrong" 'Jika Salah Akan Keluar Tulisan ini
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
MsgBox "Terima Kasih Telah Menggunakan 100artikel Login", vbInformation, "100artikel Login"
End
End Sub
Private Sub Form_Load()
Text2.PasswordChar = "*"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "Terima Kasih Telah Menggunakan 100artikel Login", vbInformation, "100artikel Login"
End Sub
Terima Kasih Sudah Membaca Artikel Membuat Form Login di Visual Basic 6
|
Kang Rois
|