vb.net 读取INI文件信息

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
                       (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
                       ByVal lpDefault As String, _
                       ByVal lpReturnedString As String, ByVal nSize As Int32, _
                       ByVal lpFileName As String) As Int32
   
Private Shared Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String
        Dim Str As String = LSet(Str, 25655)
        Call GetPrivateProfileString(Section, AppName, lpDefault, Str, 1024, FileName)
        Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)
    End Function