Private Sub Timer2_Timer() 
If Format(Now, "Am/Pm") = Format(Text1.Text, "Am/Pm") Then 
If Format(Now, "hh:mm:ss") = Format(Text1.Text, "hh:mm:ss") Then 
Out "&H378", 1 
Shape1.BackColor = &HFFFF& 
End If 
End If 
If Format(Now, "Am/Pm") = Format(Text2.Text, "Am/Pm") Then 
If Format(Now, "hh:mm:ss") = Format(Text2.Text, "hh:mm:ss") Then 
Out "&H378", 0 
Shape1.BackColor = &HFFFFFF 
End If 
End If 
End Sub