XMLファイルを読み込んでTreeViewに表示

PC

上記のC#コードをVB.NETに書き換え…

Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

    Dim myXML As New XmlDocument

    '読み込むXMLを指定し、ロード
    Me.OpenFileDialog1.ShowDialog()
    myXML.Load(Me.OpenFileDialog1.FileName)

    'XMLファイルのルートを取得
    Dim rootXmlNode As XmlNode = myXML.DocumentElement

    'TreeNodeクラスのインスタンス生成
    Dim rootTreeNode = New TreeNode(rootXmlNode.Name)
    'TreeNodeのルートノードの作成
    Me.TreeView1.Nodes.Add(rootTreeNode)
    'TreeNodeの再帰読み込み
    Me.RecursiveShowTree(rootXmlNode, rootTreeNode)

    'すべてのTreeを開く
    Me.TreeView1.ExpandAll()

End Sub

Private Sub RecursiveShowTree(ByVal ParentXmlNode As XmlNode, ByVal ParentTreeNode As TreeNode)

    'XML読み出しの再帰処理
    For Each childXmlNode As XmlNode In ParentXmlNode.ChildNodes
        'テキストノードへの処理
        If Not childXmlNode.Name.Equals("#text") Then
            '子ノードを取得
            Dim childTreeNode As TreeNode = ParentTreeNode.Nodes.Add(childXmlNode.Name)
            '取得した子ノードと子XMLを引数にし、再帰処理
            Me.RecursiveShowTree(childXmlNode, childTreeNode)
        End If
    Next

End Sub

でも、やりたいことはコレじゃなかったり。