Imports System
Imports System.Collections.Specialized
Imports System.Configuration

Namespace AspNet.Samples

    Class UsingAppSettingsSection


        Shared Sub ShowAppSettings()


            Dim reader As New AppSettingsReader()


            Dim appStgs As NameValueCollection = _
            ConfigurationManager.AppSettings

            Dim names As String() = _
            ConfigurationManager.AppSettings.AllKeys

            Dim value As String = String.Empty

            Dim i As Integer
            For i = 1 To appStgs.Count - 1
                Dim key As String = names(i)

                value = CStr(reader.GetValue(key, value.GetType()))

                Console.WriteLine("#{0} Name: {1} Value: {2}", i, key, value)
            Next i

        End Sub 'ShowAppSettings


        Public Shared Sub Main(ByVal args() As String)

            ' Get the count of the Application Settings.
            Dim appStgCnt As Integer = ConfigurationManager.AppSettings.Count

            Dim asName As String = "AppStg" + appStgCnt.ToString()

            ' Get the configuration file.
            Dim config As System.Configuration.Configuration = _
            ConfigurationManager.OpenExeConfiguration( _
            ConfigurationUserLevel.None)

            ' Add an Application setting.
            config.AppSettings.Settings.Add(asName, _
            DateTime.Now.ToLongDateString() + " " + _
            DateTime.Now.ToLongTimeString())

            ' Save the configuration file.
            config.Save(ConfigurationSaveMode.Modified)

            ' Force a reload of a changed section.
            ConfigurationManager.RefreshSection("appSettings")


            Console.WriteLine()
            Console.WriteLine("Application Settings:")
            ShowAppSettings()
            Console.WriteLine()

            Console.WriteLine("Press 'Enter' to exit.")
            Console.ReadLine()

        End Sub 'Main
    End Class 'UsingAppSettingsSection

using System;
using System.Collections.Specialized;
using System.Configuration;

namespace AspNet.Samples
{
    class UsingAppSettingsSection
    {
        static void ShowAppSettings()
        {


            AppSettingsReader reader = 
                new AppSettingsReader();


            NameValueCollection appStgs = 
                ConfigurationManager.AppSettings;

            string[] names = 
                ConfigurationManager.AppSettings.AllKeys;

            String value = String.Empty;

            for (int i = 0; i < appStgs.Count; i++)
            {


                string key = names[i];

                value = (String)reader.GetValue(key, value.GetType());

                Console.WriteLine("#{0} Name: {1} Value: {2}",
                  i, key, value);

            }

        }

        static void Main(string[] args)
        {

            // Get the count of the Application Settings.
            int appStgCnt = ConfigurationManager.AppSettings.Count;

            string asName = "AppStg" + appStgCnt.ToString();

            // Get the configuration file.
            System.Configuration.Configuration config =
              ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None);

            // Add an Application setting.
            config.AppSettings.Settings.Add(asName,
              DateTime.Now.ToLongDateString() + " " +
              DateTime.Now.ToLongTimeString());

            // Save the configuration file.
            config.Save(ConfigurationSaveMode.Modified);

            // Force a reload of a changed section.
            ConfigurationManager.RefreshSection("appSettings");


            Console.WriteLine();
            Console.WriteLine("Application Settings:");
            ShowAppSettings();
            Console.WriteLine();

            Console.WriteLine("Press 'Enter' to exit.");
            Console.ReadLine();
        }
    }
}