Config Handler for vbnet 2.4+. System.Configuration must be linked

AppConfig.vb

Imports System.Configuration
Imports System.Reflection

Public Class AppConfig
    Private _config As Configuration
    Private _settings As AppSettingsSection

    Public Function GetProperty(propertyName As String) As String
        If Not HasProperty(propertyName) Then
            Return Nothing
        End If

        Return _settings.Settings.Item(propertyName).Value
    End Function

    Public Function GetProperty(propertyName As String, defaultValue As String) As String
        If Not HasProperty(propertyName) Then
            SetProperty(propertyName, defaultValue)
            Return defaultValue
        End If

        Return _settings.Settings.Item(propertyName).Value
    End Function

    Public Sub SetProperty(propertyName As String, propertyValue As String)
        If HasProperty(propertyName) Then
            _settings.Settings.Item(propertyName).Value = propertyValue
        Else
            _settings.Settings.Add(propertyName, propertyValue)
        End If
    End Sub

    Public Function HasProperty(propertyName As String)
        Return _settings.Settings.AllKeys.Contains(propertyName)
    End Function

    Public Sub New()
        _config = ConfigurationManager.OpenExeConfiguration(Assembly.GetEntryAssembly().Location)
        _settings = _config.AppSettings
    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
        _config.Save(ConfigurationSaveMode.Modified)
    End Sub
End Class