สร้าง Treeview ให้แสดง folder ในคอม แต่ขึ้น node ไม่ครบระดับชั้น

  
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MdiParent = Form1
        Dim rootnode As New TreeNode("E:\Test\TestPath\AOD")
        TreeView1.Nodes.Add(rootnode)
        FillChildNodes(rootnode)
        'lastnode(rootnode)
        TreeView1.Nodes(0).Expand()
    End Sub
    Private Sub FillChildNodes(ByVal node As TreeNode)
        Try
            Dim dirs As New DirectoryInfo(node.FullPath)
            For Each dir As DirectoryInfo In dirs.GetDirectories()
                Dim newnode As New TreeNode(dir.Name)
                node.Nodes.Add(newnode)
                newnode.Nodes.Add("")
                
            Next

        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try
    End Sub


    Private Sub treeView1_BeforeExpand(ByVal sender As Object, ByVal e As TreeViewCancelEventArgs)
        If e.Node.Nodes(0).Text = "" Then
            e.Node.Nodes.Clear()
            FillChildNodes(e.Node)
        End If
    End Sub