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