Private Sub frmCheckTree_Load(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles MyBase.Load
 
    Dim entries() As String = {"aaa", "bbb", "ccc", "ddd", "eee", "fff"}
 
    For i As Integer = 0 To entries.Length - 1
       Dim key As String = "Entry" & CStr(i) 'eindeutiger Schlüssel 
       trv.Nodes.Add(key, entries(i))
       lv.Items.Add(key, entries(i), -1)
    Next i
End Sub
 
Private Sub trv_NodeMouseClick(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) _
    Handles trv.NodeMouseClick
 
    If lv.Items.ContainsKey(e.Node.Name) Then
       With lv.Items(e.Node.Name)
            .Selected = True : .EnsureVisible()
       End With
    End If
End Sub
 
Private Sub lv_MouseClick(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) Handles lv.MouseClick
 
    Dim key As String = lv.SelectedItems(0).Name
 
    If trv.Nodes.ContainsKey(key) Then
       trv.SelectedNode = trv.Nodes(key)
       trv.SelectedNode.EnsureVisible()
    End If
End Sub