Private Declare Unicode Function WritePrivateProfileString Lib _
            "kernel32" Alias "WritePrivateProfileStringW" _
            (ByVal sApplication As String, _
            ByVal sKey As String, _
            ByVal sValue As String, _
            ByVal sIniName As String) As Integer
 
Sub
..
                    WritePrivateProfileString("LogIn", "LogIn", "OK", _
                      MyIniFile2)
...
End Sub

Gru?,

Sebastian M?ller

www.ComOnShop.de