string limit 50 -

Option Explicit

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 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 Sub Command1_Click()
Dim lngResult As Long
Dim strFileName
strFileName = App.Path & "\myini.ini"
lngResult = WritePrivateProfileString("My Text", "Text 1", Text1.Text, strFileName)
lngResult = WritePrivateProfileString("My Text", "Text 2", Text2.Text, strFileName)
lngResult = WritePrivateProfileString("My Text", "Text 3", Text3.Text, strFileName)
lngResult = WritePrivateProfileString("My Text", "Text 4", Text4.Text, strFileName)
End Sub


Private Sub Command2_Click()
Dim lngResult As Long
Dim strFileName
Dim strResult As String * 50
strFileName = App.Path & "\myini.ini" 'Declare your ini file !
lngResult = GetPrivateProfileString("My Text", "Text 1", strFileName, strResult, Len(strResult), strFileName)
Text1.Text = strResult
lngResult = GetPrivateProfileString("My Text", "Text 2", strFileName, strResult, Len(strResult), strFileName)
Text2.Text = strResult
lngResult = GetPrivateProfileString("My Text", "Text 3", strFileName, strResult, Len(strResult), strFileName)
Text3.Text = strResult
lngResult = GetPrivateProfileString("My Text", "Text 4", strFileName, strResult, Len(strResult), strFileName)
Text4.Text = strResult


End Sub