Time Methode


Private Sub Command1_Click()

Dim x

Dim y

Form1.WindowsState=1

repeat:

x=Format(Now,”dd/mm/yyyy”)

y=Format(Time,”hh:mm:ss”)

if x=”02/03/2009″ and y=”00:00:01″ then

msgbox “Booooom!!!”,0,”TIK TUK”

Exit Sub

Else

set x=Nothing

set y=Nothing

GoTO repeat

End If

End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s