Private Sub lv_MouseClick(ByVal sender As Object, _
   ByVal e As System.Windows.Forms.MouseEventArgs) Handles lv.MouseClick
 
   If lv.SelectedItems.Count < 1 Then Exit Sub 'Kein Item ausgewählt
   Dim lvi As ListViewItem = lv.SelectedItems(0)
 
   Dim nd() As TreeNode = trv.Nodes.Find(lvi.Text, True)
   If nd.Length < 1 Then Exit Sub 'Kein korrespondierender Eintrag gefunden
 
   trv.SelectedNode = nd(0)
   trv.SelectedNode.EnsureVisible()
End Sub