Attribute VB_Name = "Module1"
Private Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Function INIFileName() As String
    INIFileName = App.Path & "\setting.ini" 'atur lokasi file setting.ini disini
End Function

Public Function GetSettingINI(ByVal Section As String, ByVal Key As String, ByVal DefaultValue)
    Dim s As String, l As Long
    s = String(255, 0)
    l = GetPrivateProfileString(Section, Key, DefaultValue, s, 255, INIFileName)
    GetSettingINI = Left(s, l)
End Function

Public Function SaveSettingINI(ByVal Section As String, ByVal Key As String, ByVal Setting As String)
    If Setting = "" Then Setting = vbNullChar
    SaveSettingINI = WritePrivateProfileString(Section, Key, Setting, INIFileName)
End Function