pb读文件问题

模块1：
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 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

Public Funtion GetINIValue(sFile As string,sRoot As string,sKey As String) As String
Dim s As String * 256

GetPrivateProfileString sRoot, _
SKey, "", s, 256, sFile

GetINIValue = s
End Function

窗体：
Label1.BackColor = CLng(GetINIValue("主键","项目","文件路径"))

INI: