Module APM
   ' Für die asynchron aufzurufende Funktion muss ein Delegat
   ' erstellt werden
  Private Delegate Function DoSomethingDelegate(ByVal _
      SomeParameter As Integer) As String

  Private DelDoSomething As DoSomethingDelegate
  Public Function DoSomething(ByVal SomeParameter As Integer) _
      As String

    ' Simuliert zehn Sekunden Arbeit/Berechnung
    Threading.Thread.Sleep(10000)
    Return SomeParameter.ToString
  End Function

  Public Function BeginDoSomething(ByVal SomeParameter As _
      Integer, ByVal CallBack As AsyncCallback, ByVal UserState _
      As Object) As IAsyncResult
    DelDoSomething = New DoSomethingDelegate(AddressOf DoSomething)
    Return DelDoSomething.BeginInvoke(SomeParameter, CallBack, _
       UserState)
  End Function

  Public Function EndDoSomething(ByVal Result As IAsyncResult) _
      As String
    Dim Userstate As String = CStr(Result.AsyncState)

    Return DelDoSomething.EndInvoke(Result)
  End Function
End Module