12:34 11/11/2004<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <configSections>
        <sectionGroup name="Allgemeines">
            <section name="appSettings" _
              type="System.Configuration.NameValueSectionHandler" />
        </sectionGroup>
        <sectionGroup name="Tabellennamen">
            <section name="Access" _
              type="System.Configuration.NameValueSectionHandler" />
            <section name="Oracle" _
            type="System.Configuration.NameValueSectionHandler" />
        </sectionGroup>
    </configSections>
    <appSettings>
        <add key="receiverKeyContainer" value="WSE Binary Sample - receiver" />
        <add key="senderPrivateKeyContainer" value="WSE Binary Sample - sender" />
    </appSettings>
</configuration>

        Dim xmlDoc As New XmlDocument
        Dim xmlNode As XmlNode
        Dim xmlNode1 As XmlNode
        Dim xmlNode2 As XmlNode
 
 
        ' app.config
 
        xmlDoc.Load("F:\Work Dev\VSNet Dev\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
                            MsgBox("Huh??")
                        End If
                    Next
                End If
            Next
        End If
        xmlNode = xmlDoc.SelectSingleNode("configuration/appSettings")
        If xmlNode Is Nothing Then
            Debug.WriteLine("Nix da")
        Else
            For Each xmlNode1 In xmlNode.ChildNodes
                Debug.WriteLine(xmlNode1.Name)
                If xmlNode1.Name = "add" Then
                    Debug.WriteLine(xmlNode1.Attributes("key").Value + "=" + _
                      xmlNode1.Attributes("value").Value)
                End If
            Next
        End If