Public Delegate Sub IncomingDataDelegate(ByVal content As String)
 
    ' The Asynchronous result callback routine
    Private Sub AsynchCallbackRoutine(ByVal ar As IAsyncResult)
        Dim resp As String = exec.EndInvoke(ar)
        Me.Invoke(New IncomingDataDelegate(AddressOf ShowData), New Object() _
          {"Some content to show"})
    End Sub
 
 
    Public Sub ShowData(ByVal content As String)
        Dim msgwin As New MsgWindow
        msgwin.TextBox1.Text = content
        msgwin.Show()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist