Private Delegate Sub addNodeFromThreadDelegate(ByVal nodecol As _
      TreeNodeCollection, ByVal node As TreeNode)
 
 
    Private Sub MeineFunktion()
            '...
            Me.Invoke(New addNodeFromThreadDelegate(AddressOf _
              addNodeFromThread), New Object() {NodeCollection, node})
            '...
    End Sub
 
    ' Routine to update TreeView (from Thread)
    Private Sub addNodeFromThread(ByVal nodecol As TreeNodeCollection, _
      ByVal node As TreeNode)
        tv.Nodes.Add(node)
    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