Attribute VB_Name = "modIni"
'this module is necessary for working with INI-files
Public Declare Function GetPrivateProfileString Lib "kernel32" _
   Alias "GetPrivateProfileStringA" _
  (ByVal lpSectionName As String, _
   ByVal lpKeyName As String, _
   ByVal lpDefault As String, _
   ByVal lpReturnedString As String, _
   ByVal nSize As Long, _
   ByVal lpFilename As String) As Long
   
Public Declare Function WritePrivateProfileString Lib "kernel32" _
   Alias "WritePrivateProfileStringA" _
  (ByVal lpSectionName As String, _
   ByVal lpKeyName As String, _
   ByVal lpValue As String, _
   ByVal lpFilename As String) As Long
   
Public Sub ProfileSaveItem(lpSectionName As String, lpKeyName As String, _
                            ByVal lpValue As String, lpFilename As String)
    Call WritePrivateProfileString(lpSectionName, lpKeyName, lpValue, lpFilename)
End Sub




