Dim xmlDoc As New XmlDocument
        Dim xmlNode As XmlNode
        Dim xmlNode1 As XmlNode
        Dim xmlNode2 As XmlNode
 
        xmlDoc.Load("C:\Test\app.config")
        xmlNode = xmlDoc.SelectSingleNode("configuration/configSections")
        If xmlNode Is Nothing Then
            Debug.WriteLine("Nix da")
        Else
            For Each xmlNode1 In xmlNode.ChildNodes
                Debug.WriteLine(xmlNode1.Name)
                If xmlNode1.Name = "sectionGroup" Then
                    Debug.WriteLine("sectionGroup=" + xmlNode1.Attributes( _
                      "name").Value)
                    For Each xmlNode2 In xmlNode1.ChildNodes
                        If xmlNode2.Name = "section" Then
                            Debug.WriteLine(xmlNode2.Attributes("name").Value + _
                              "=" + xmlNode2.Attributes("type").Value)
                        Else
                            Debug.WriteLine("Huh??")
                        End If
                    Next
                End If
            Next
        End If