Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        If Not e.Node.Parent Is Nothing Then
            Dim Node As TreeNode = e.Node.Parent
            Debug.WriteLine(Node.Text)
        End If
    End Sub