Imports System.Configuration
 
Public Class frmConfig
    Dim setting As New My.MySettings()
 
    Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) _
      Handles btnSave.Click
        Dim config As Configuration = ConfigurationManager.OpenExeConfiguration( _
        ConfigurationUserLevel.PerUserRoaming)
        Dim section As ConfigurationSection = config.GetSection("appSettings")
 
        If section.SectionInformation.IsProtected Then
            section.SectionInformation.UnprotectSection()
        End If
 
        config.AppSettings.Settings("Username").Value = tbUsername.Text
        config.AppSettings.Settings("Password").Value = tbPassword.Text
 
        section.SectionInformation.ProtectSection( _
          "DataProtectionConfigurationProvider")
 
        config.Save(ConfigurationSaveMode.Full, True)
        End
    End Sub
End Class

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <system.diagnostics>
        <sources>
            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration _
              für My.Application.Log -->
            <source name="DefaultSource" switchName="DefaultSwitch">
                <listeners>
                    <add name="FileLog"/>
                    <!-- Auskommentierung des nachfolgenden Abschnitts _
                      aufheben, um in das Anwendungsereignisprotokoll zu _
                      schreiben -->
                    <!--<add name="EventLog"/>-->
                </listeners>
            </source>
        </sources>
        <switches>
            <add name="DefaultSwitch" value="Information" />
        </switches>
        <sharedListeners>
            <add name="FileLog"
                 type="Microsoft.VisualBasic.Logging.FileLogTraceListener," & _
                   "Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral," & _
                   "PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" 
                 initializeData="FileLogWriter"/>
            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und _
              APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in _
              das Anwendungsereignisprotokoll zu schreiben -->
            <!--<add name="EventLog" _
            type="System.Diagnostics.EventLogTraceListener" _
            initializeData="APPLICATION_NAME"/> -->
        </sharedListeners>
    </system.diagnostics>
    <appSettings>
      <add key="Username" value=""></add>
      <add key="Password" value=""></add>
    </appSettings>
</configuration>