Posted: Fri Dec 21, 2007 2:50 pm Post subject: Password protected.
Password protected.
Code:
Private Sub Command1_Click()
Picture1.Visible = True
End Sub
Private Sub Command2_Click()
Picture1.Visible = False
End Sub
Private Sub Form_Load()
passwordbox = InputBox("Please fill in password")
If passwordbox = "*****" Then
MsgBox ("Congrats! You got into the program!")
Else: MsgBox ("You dont know the password, so stop guessing")
Unload Me
End If
End Sub
The Extension 'rar' was deactivated by an board admin, therefore this Attachment is not displayed.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum