vb.net读写INI的方法

Private 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 Integer, ByVal lpFileName As String) As Integer
'上读INI’下写INI
Private Declare Function WritePrivateProfileString Lib “kernel32” Alias “WritePrivateProfileStringA” (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
    Dim strIni As String
    strIni = New String(" ", 100)
    ' WritePrivateProfileString("AppName", "KeyB", "MyValue", Application.StartupPath & "/a.ini")   ’写入置制的方法
    GetPrivateProfileString("AppName", "KeyA", "", strIni, 100, Application.StartupPath & "/a.ini")  '读取配制的方法

    MessageBox.Show(strIni)
End Sub