'declarations for working with Ini files
Private Declare Function GetPrivateProfileSection()Function GetPrivateProfileSection Lib "kernel32" Alias _
"GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function GetPrivateProfileString()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

Private Declare Function WritePrivateProfileSection()Function WritePrivateProfileSection Lib "kernel32" Alias _
"WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString()Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
ByVal lpString As Any, ByVal lpFileName As String) As Long



'reads an Ini string
Public Function ReadIni()Function ReadIni(Filename As String, Section As String, Key As String) As String
    Dim RetVal As String * 255
    
    Dim v As Long
    v = GetPrivateProfileString(Section, Key, "NotFound", RetVal, 255, Filename)
    
    ReadIni = Left(RetVal, v)
End Function

'reads an Ini sectionPublic
Function ReadIniSection()Function ReadIniSection(Filename As String, Section As String) As String
    Dim RetVal As String * 255
    
    Dim v As Long
    v = GetPrivateProfileSection(Section, RetVal, 255, Filename)
    
    ReadIniSection = Left(RetVal, v )
End Function

'writes an Ini string
Public Sub WriteIni()Sub WriteIni(Filename As String, Section As String, Key As String, Value As String)
    WritePrivateProfileString Section, Key, Value, Filename
End Sub

'writes an Ini section
Public Sub WriteIniSection()Sub WriteIniSection(Filename As String, Section As String, Value As String)
    WritePrivateProfileSection Section, Value, Filename
End Sub