TimerPAssword

Private Sub Command1_Click()
If Text1.Text = "mypass" Then
Timer1.Enabled = False
MsgBox ("Welcome !!")
End
Else
MsgBox ("Wrong Password !")
End If
End Sub

'Iltimer nell'esempio attende 15 secondi (interval 15000 )


Private Sub Timer1_Timer()
MsgBox ("Time is up !")
End
End Sub