leftで詰まったり、as anyではまったり、VBとVB.NETをちょっと違いがありました。
Declare Function GetPrivateProfileString Lib “KERNEL32.DLL” Alias “GetPrivateProfileStringA” ( _
ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Integer, _
ByVal lpFileName As String) As Integer
Public Function GetIni(ByVal ApName As String, ByVal KeyName As String, ByVal Defaults As String, _
ByVal Filename As String) As String
Dim strResult As String = Space(255)
Call GetPrivateProfileString(ApName, KeyName, Defaults, strResult, Len(strResult), Filename)
GetIni = Microsoft.VisualBasic.Left(strResult, InStr(strResult, Chr(0)) – 1)
End Function
