Public Class frmCheckTree
 
    Dim WithEvents trv As New TreeView With _
             {.Parent = Me, .Left = 5, .Width = 120}
 
    Dim lv As New ListView With _
             {.Parent = Me, .Left = 140, .View = View.Details, _
             .MultiSelect = False, .FullRowSelect = True, .HideSelection = _
             False}
 
 
    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"}
 
        lv.Columns.Add("Entry", 200)
 
        For i As Integer = 0 To entries.Length - 1
            trv.Nodes.Add(entries(i))
            lv.Items.Add(entries(i))
        Next i
 
    End Sub
 
 
    Private Sub trv_NodeMouseClick(ByVal sender As Object, _
        ByVal e As TreeNodeMouseClickEventArgs) Handles trv.NodeMouseClick
 
        Dim lvi As ListViewItem = lv.FindItemWithText(e.Node.Text)
 
        lvi.EnsureVisible()
        lvi.Selected = True
 
     End Sub
End Class