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 |