Private Delegate Sub addNodeFromThreadDelegate(ByVal name As String, ByVal _
      someInt As Integer)
 
    ' Thread routine
    Private Sub tr()
            '....
            ' Add Node
            TreeView1.Invoke(New addNodeFromThreadDelegate(AddressOf _
              addNodeFromThread), New Object() {name, nc})
            '....
    End Sub
 
    ' Routine to update TreeView (from Thread)
    Private Sub addNodeFromThread(ByVal name As String, ByVal anInt As Integer)
        tv.Nodes.Add(name + anInt.ToString())
    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