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