Private Sub Timer1_Timer()
Label1 = Date$
Label2 = Time$
If (Text1 = Time$) And (Text2 = Date$) Then
Dim retval
retval = Shell("rundll32.exe user.exe,exitwindows")
End If
End Sub
Label1 = Date$
Label2 = Time$
If (Text1 = Time$) And (Text2 = Date$) Then
Dim retval
retval = Shell("rundll32.exe user.exe,exitwindows")
End If
End Sub
