Option Explicit
 
Private Const mcClassnameMSExcel = "XLMAIN"
 
Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd _
      As Long, ByVal nIDEvent As Long) As Long
 
Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd _
      As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _
      ByVal lpTimerFunc As Long) As Long
 
Private Declare Function FindWindow Lib "user32.dll" Alias _
      "FindWindowA" (ByVal lpClassName As String, _
      ByVal lpWindowName As String) As Long
 
Public Sub prcSetTimer()
  SetTimer FindWindow(mcClassnameMSExcel, Application.Caption), _
        0&, 500&, AddressOf prcTimer
End Sub [color=green]'500=halbe sekunde (500 millisekunden)
 
Private Sub prcTimer(ByVal hwnd As Long, ByVal nIDEvent As Long, _
      ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    [color=green]'hier der code der z.b. alle 500 millisekunden ausgeführt 
    ' werden soll
End Sub
 
Public Sub prcKillTimer()
  KillTimer FindWindow(mcClassnameMSExcel, Application.Caption), 0&
End Sub

Option Explicit
 
Private Sub UserForm_Activate()
  Call prcSetTimer
End Sub
 
Private Sub UserForm_Terminate()
  Call prcKillTimer
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...