Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public win_hwnd As Long
Public Sub timer()
SlideMaster.Label1.Caption = FormatDateTime(Now, 4)
End Sub
Label1.Caption = FormatDateTime(Now, 4)
win_hwnd = GetActiveWindow()
SetTimer win_hwnd, 101, 60000, AddressOf timer
2184