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 Sub Command1_click()
WritePrivateProfileString "test", "INI_XDir", text1.text, App.Path & "\Bpp.ini"
end sub

--------------------------------------------
admin of russian-board.com
member of russian-mp3.de
--------------------------------------------