Private WithEvents aTimer As System.Timers.Timer
 
    Private Sub NachbearbeitenStart(ByVal Intervall As Integer)
 
        aTimer = New System.Timers.Timer
 
        aTimer.Interval = Intervall
        aTimer.AutoReset = False
        aTimer.Enabled = True
 
    End Sub
 
    Private Sub Timer1EventHandler(ByVal sender As Object, ByVal e As _
      ElapsedEventArgs) Handles aTimer.Elapsed
        aTimer.Enabled = False
        HandleSetAgentStateRequest(2) ' auch hier wird die Methode nicht 
        ' ausgeführt.
     End Sub

cu
Ralph