Imports System
Imports System.Timers
 
Private Sub NachbearbeitenStart(ByVal Intervall As Integer)
        aTimer = New System.Timers.Timer
 
        AddHandler aTimer.Elapsed, AddressOf NachbearbeitenEvent
 
        aTimer.Interval = Intervall
        aTimer.AutoReset = False
        aTimer.Enabled = True
 
    End Sub
 
    Private Sub NachbearbeitenEvent(ByVal source As Object, ByVal e As _
      ElapsedEventArgs)
       aTimer.Enabled = false
        'Agenten wieder in den alten Status zurücksetzten
        HandleSetAgentStateRequest(ioldState) 'Aufruf einer Methode einer 
        ' weiteren dll    (und dass geht nicht)
    End Sub

cu
Ralph