by Mark G (2 Submissions)
Category: Encryption
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Tue 6th February 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Login program
drag a command button to the form and type in the following:
Private Click1_Click()
if text1 = "Username goes here!" then
timer1.enabled = true
else
end if
end sub
Private Timer1_Timer()
if text2 = "Password goes here!" then
form2.show
unload form1
else
msgbox "Error Wrong Username or password!" , vbcritical, "Error"
form1.enabled = false
end if
end sub