Private nc As Integer
    Private Delegate Sub addNodeFromThreadDelegate(ByVal name As String, ByVal _
      someInt As Integer)
 
    Private Sub tr()
 
        While brun
            nc += 1
 
            Dim name As String = "tn"
 
            Me.Invoke(New addNodeFromThreadDelegate(AddressOf _
              addNodeFromThread), New Object() {name, nc})
 
            Thread.Sleep(2000)
        End While
    End Sub
 
    Private Sub addNodeFromThread(ByVal name As String, ByVal anInt As Integer)
        tv.Nodes.Add(name + anInt.ToString())
    End Su