by Baker Boy (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 10th December 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This is a basic password/login form
API Declarations
Dim username As String
Dim try As Integer
try = try - 1
If try = 0 then
msgbox "Sorry username and password incorrect three times please go away",vbinformation, "Bla"
End
End If
username = {textbox name}
password = {textbox name}
If (username = {textbox name}) and (password = {textbox name}) then
msgbox "Well done", vbinformation, "Bla"
load {formname}
else
msgbox "sorry", vbinformation, "Bla"
{textbox name for username} = ""
{textbox name for password} = ""
{textbox name for username.SetFocus
End if
End Sub
Form_Load()
try = 3
End Sub