Private Sub FillTreeNode(ByVal dNode As TreeNode)
    Try
        Dim d As DirectoryInfo = CType(dNode.Tag, DirectoryInfo)
        For Each di As DirectoryInfo In d.GetDirectories
            Dim nNode As New TreeNode(di.Name) With {.Tag = di}
            dNode.Nodes.Add(nNode)
            Try
                If di.GetDirectories.Count > 0 Then
                    nNode.Nodes.Add("")
                End If
            Catch : End Try
        Next
    Catch : End Try
End Sub