Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Function GetSettingEx(ByVal AppName As String, ByVal Section As String, ByVal Key As String, Optional Default As Variant) As Variant
    Dim mBuffer As String
    Dim mSize   As Long
    mSize = 1024
    mBuffer = String(mSize, 0)
    mSize = GetPrivateProfileString(Section, Key, Default, mBuffer, mSize, App.Path & "\" & AppName & ".ini")
    GetSettingEx = Left(mBuffer, mSize)
End Function

Sub SaveSettingEx(ByVal AppName As String, ByVal Section As String, ByVal Key As String, ByVal Setting As String)
    WritePrivateProfileString Section, Key, Setting, App.Path & "\" & AppName & ".ini"
End Sub

// Lecture (WIN.INI par défaut, ou fichier .INI localisé dans sChemin)
// Si le mot clé n'est pas trouvé dans la section, la valeur retournée
// Sera celle donnée avec sDéfaut
Valeur = INILit(sNomSection, sMotclé, sDéfaut, sChemin)
// Ecriture
INIEcrit(sNomSection, sMotclé, Valeur , sChemin)

Public Property Get Setting(ByRef vsSection As String, ByRef vsKey As String) As String
Dim nLength As Long
   nLength = 1024
   Setting = Space$(nLength)
   nLength = GetPrivateProfileString(vsSection, vsKey, vbNullString, Setting, nLength, AppPath & App.EXEName & ".ini")
   Setting = Left$(Setting, nLength)
End Property 

Public Property Let Setting(ByRef vsSection As String, ByRef vsKey As String, ByRef Value As String)
   WritePrivateProfileString vsSection, vsKey, Value, AppPath & App.EXEName & ".ini"
End Property 

    Sub CreateProperty(ByVal PropertyName As String)
        My.Settings.PropertyValues.Add(New System.Configuration.SettingsPropertyValue(New System.Configuration.SettingsProperty(PropertyName)))
    End Sub
    Sub SetPropertyValue(ByVal PropertyName As String, ByVal PropertyValue As Object)
        My.Settings.PropertyValues.Item(PropertyName).Property.DefaultValue = PropertyValue
    End Sub
    Function GetPropertyValue(ByVal PropertyName As String) As Object
        Return My.Settings.PropertyValues.Item(PropertyName).Property.DefaultValue
    End Function
    Function PropertyExists(ByVal PropertyName As String) As Boolean
        Return My.Settings.PropertyValues.Item(PropertyName) IsNot Nothing
    End Function
    Sub RemoveProperty(ByVal PropertyName As String)
        My.Settings.PropertyValues.Remove(PropertyName)
    End Sub