.NET 4.x Получить выделенный узел TreeView - Visual Basic .NET

Формулировка задачи:

Помогите мне немного разобраться с этим компонентом, он довольно нужный, но понять я его не как не могу. В интернете указано только как изменять его параметры, но как его использовать-нечего нужного я не нашёл. Первая моя цель-как то, что выделено в treeView использовать в условии, например:

                    Листинг программы
                
If <Выделен узел3> then
msgbox("Выделен узел 3")
end if

что-то вроде этого.

Решение задачи: «.NET 4.x Получить выделенный узел TreeView»

textual
                            Листинг программы 
                        
 
                            
                        
    Dim Path As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FBD As New FolderBrowserDialog
 
        If FBD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Path = FBD.SelectedPath
            TreeView1.Nodes.Add(IO.Path.GetFileName(Path))
            Search(Path, TreeView1.Nodes(0))
            TreeView1.Nodes(0).Expand()
        End If
    End Sub
 
 
    Sub Search(ByVal Fol As String, ByVal Node As TreeNode)
        For Each S As String In IO.Directory.GetDirectories(Fol, "*.*", SearchOption.TopDirectoryOnly)
            Dim TmpNode As New TreeNode(IO.Path.GetFileName(S))
            TmpNode.ImageIndex = 0
            Node.Nodes.Add(TmpNode)
            Search(S, TmpNode)
        Next
    End Sub
 
    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim Files() As String = IO.Directory.GetFiles(IO.Path.GetDirectoryName(Path) & "" & e.Node.FullPath, "*.*", SearchOption.TopDirectoryOnly)
        ListView1.Items.Clear()
        For Each File As String In Files
            ListView1.Items.Add(IO.Path.GetFileName(File)).Tag = File
            ListView1.Items(ListView1.Items.Count - 1).ImageIndex = 1
        Next
    End Sub
 
    Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick
        If ListView1.SelectedItems.Count > 0 Then
            MsgBox(ListView1.SelectedItems(0).Tag)
        End If
    End Sub