'========================================

Sub zGen_SetIni(sIniFile, sSection, sKey, sValue)

	Dim iRet

	Extern.Declare micLong, "WritePrivateProfileString", "kernel32.dll", "WritePrivateProfileStringA", micString, micString, micString, micString

	iRet = Extern.WritePrivateProfileString( sSection, sKey, sValue, sIniFile )

End Sub

'========================================