ADICIONAR TEXTOS DE CHAVES DE INI PARA LISTBOX

Private 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
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function WriteINI(sSection As String, _
sKey As String, ByVal sValue As String) As Boolean
 
    Dim lR As Long
    Dim sItemValue As String
     
    sValue = Trim$(sValue)
    sItemValue = Trim$(sItemValue) & vbNullChar
    lR = WritePrivateProfileString(sSection, sKey, _
    sValue, InAppPath(App.Title & ".ini"))

    If lR = 0 Then
        WriteINI = False
    Else
        WriteINI = True
    End If
End Function

Public Function ReadINI(sSection As String, _
       sKey As String, sDefault As String) As String
 
    Dim lR          As Long
    Dim sReturnedValue   As String
     
    sReturnedValue = Space$(512)
    lR = GetPrivateProfileString(sSection, sKey, sDefault, _
    sReturnedValue, 512, InAppPath(App.Title & ".ini"))
    If lR = 0 Then
        ReadINI = vbNullString
    Else
        ReadINI = Left$(sReturnedValue, lR)
    End If
End Function

Public Function AppPath() As String
If Right$(App.Path, 1) = "\" Then
    AppPath = App.Path
Else
    AppPath = App.Path & "\"
End If
End Function

Public Function InAppPath(Name As String) As String
'if AppPath
If Right$(App.Path, 1) = "\" Then
    InAppPath = App.Path & Name
Else
    InAppPath = App.Path & "\" & Name
End If
End Function