Declare 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
Global SysDir1 as String
Global SysDir2 as String
Sub ReadIni()
dim i as long
i = GetPrivateProfileString("YourTitle", "DIRECTORY1", "C:\", iniStr, Len
(iniStr), "YOUR.INI")
SysDir1 = Left$(iniStr, i)
i = GetPrivateProfileString("YourTitle", "DIRECTORY2", "C:\", iniStr, Len
(iniStr), "YOUR.INI")
SysDir2 = Left$(iniStr, i)