Kode Login Pada Visual Basic6

Contoh program visual basic, Pada saat login tentunya kita membutuhkan kode berikut adalah kode untuk form login

Private Sub cmdOK_Click()
If LCase(txtpassword.Text) = "admin" Then
txtpassword.Enabled = False
cmdOK.Enabled = False
frmMenu.Show
Else
MsgBox "Password Anda Salah, Silahkan Coba Lagi!!!"
jumlah = jumlah + 1
If jumlah > 2 Then
    End
End If
txtpassword.Text = ""
txtpassword.SetFocus
End If
End Sub