我首先声明一个API函数：

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   


然后定义写ini的函数：

Public   Function   WriteIni(FileName   As   String,   _   
                             PathName   As   String,   _   
                             KeyName   As   String,   _   
                             WriteValue   As   String)   As   Long   
WriteIni=WritePrivateProfileString(PathName,KeyName,WriteValue,FileName)                    
End   Function


在我的程序中调用WriteIni的时候无论如何都不能写信息到ini文件中，但是也不报错，真是郁闷，请教一哈，该怎么办？哪里有错吗？