Public Function StartMonitor(ByVal nMilliseconds As Long) As Long
        Dim hID As Long
        'Die ProzessID des eigenen Prozess ermitteln
        hID = GetCurrentProcessId()
        'Für diesen Handle den exclusiven Zugriffhandle besorgen
        'und die Timerfunktion starten
        If hID Then
            nSeks = nMilliseconds
            hProcessID = OpenProcess(PROCESS_ALL_ACCESS, True, hID)
            StartMonitor = hProcessID
            hTimer = SetTimer(0, 0, nMilliseconds, [u]AddressOf _
              TimerFunc)
        End If
    End Function

Private Declare Function SetTimer Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As test) As Long