Membuat Form LogIn Sederhana VB 6.0

Ketemu lagi dalam bahasan VB 6.0 ala Putra. Heee... Disini putra akan berbagi bagaimana cara mebuat Form LogIn. Seperti biasa kamu buka Aplikasi VB 6.0 kamu dan design tampilan Form sesuka kamu. Ini saya kasih sebagai referensi :


Pada tampilan diatas, yang paling utama harus ada yaitu komponen :
*TextBox
Properties :
Name :TxtPassword
Text :-
*CommandButton 1 (Login)
Name : CmdLogin
Caption : Login
*CommandButton 2 (Cancel)
Name : CmdCancel
Caption : Cancel

Jika semua yag diatas sudah dibikin, Silahkan ketik Code ini kedalam Form Code :

Private Sub CmdCancel_Click()
End
End Sub

Private Sub CmdLogin_Click() If txtPasswd.Text = "PutraQincay" Then
vki = MsgBox("LOGIN BERHASIL", vbDefaultButton1 + vbInformation, "INFO")
Unload Me
Form4.Show
Else
vki = MsgBox("PASSWORD SALAH", vbDefaultButton1 + vbCritical, "INFO")
txtPasswd.Text = ""
End If
End Sub

Private Sub txtPasswd_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call CmdLogin_Click
End If
End Sub

Ganti text didalam If txtPasswd.Text = "PutraQincay" Then dan sesuaikan dengan kata-kata yang ingin kamu jadikan sebagai Password. Selamat Mencoba...