Как сохранять настройки в .ini файл?

Imports System.Text
'…
Private Declare Auto Function GetPrivateProfileString Lib "kernel32" _
    (ByVal lpapplicationname As String, ByVal lpkeyname As String, ByVal lpdefault As String, _
    ByVal lpreturnedstring As StringBuilder, ByVal nSize As Integer, ByVal lpfilename As String) As Integer
Private Declare Auto Function WritePrivateProfileString Lib "kernel32" _
        (ByVal lpapplicationname As String, ByVal lpkeyname As String, _
        ByVal lpstring As String, ByVal lpfilename As String) As Integer
Private Sub cmdWrite_Click(sender As System.Object, e As System.EventArgs) Handles cmdWrite.Click
    writeINI("c:\03\test.ini", "TestSection", "TestKey", "txtValue")
End Sub
Private Sub cmdGet_Click(sender As System.Object, e As System.EventArgs) Handles cmdGet.Click
    Dim txtValue As String = sGetINI("c:\03\test.ini", "TestSection", "TestKey", "None")
    MsgBox(txtValue)
End Sub
Private Sub writeINI(sINIFile As String, sSection As String, sKey As String, sValue As String)
    Dim n As Integer = WritePrivateProfileString(sSection, sKey, sValue, sINIFile)
End Sub
Public Function sGetINI(sINIFile As String, sSection As String, sKey As String, sdefault As String) As String
    Dim res As Integer
    Dim sb As New StringBuilder(500)
    res = GetPrivateProfileString(sSection, sKey, sdefault, sb, sb.Capacity, "test.ini")
    Return sb.ToString
End Function

Imports System.Text
 
Public Class IniFile
    ' API functions
    Private Declare Ansi Function GetPrivateProfileString _
        Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _
        (ByVal lpApplicationName As String,
         ByVal lpKeyName As String, ByVal lpDefault As String,
         ByVal lpReturnedString As StringBuilder,
         ByVal nSize As Integer, ByVal lpFileName As String) _
        As Integer
    Private Declare Ansi Function WritePrivateProfileString _
        Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
        (ByVal lpApplicationName As String,
         ByVal lpKeyName As String, ByVal lpString As String,
         ByVal lpFileName As String) As Integer
    Private Declare Ansi Function GetPrivateProfileInt _
        Lib "kernel32.dll" Alias "GetPrivateProfileIntA" _
        (ByVal lpApplicationName As String,
         ByVal lpKeyName As String, ByVal nDefault As Integer,
         ByVal lpFileName As String) As Integer
    Private Declare Ansi Function FlushPrivateProfileString _
        Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
        (ByVal lpApplicationName As Integer,
         ByVal lpKeyName As Integer, ByVal lpString As Integer,
         ByVal lpFileName As String) As Integer
    Dim strFilename As String
 
    ' Constructor, accepting a filename
    Public Sub New(ByVal Filename As String)
        strFilename = Filename
    End Sub
 
    ' Read-only filename property
    ReadOnly Property FileName() As String
        Get
            Return strFilename
        End Get
    End Property
 
    Public Function GetString(ByVal Section As String, ByVal Key As String, ByVal [Default] As String) As String
        On Error GoTo err_
        ' Returns a string from your INI file
        Dim intCharCount As Integer
        Dim objResult As New StringBuilder(256)
        intCharCount = GetPrivateProfileString(Section, Key, [Default], objResult, objResult.Capacity, strFilename)
        If intCharCount > 0 Then
            GetString = Left(objResult.ToString, intCharCount)
        Else
            GetString = [Default] 'esq 160307
        End If
        ' замена вертикального апострофа (который ломает SQL-запрос) на обратный
        GetString = Replace(GetString, "'", "`")
        err_:
    End Function
 
    Public Function GetInteger(ByVal Section As String,
                               ByVal Key As String, ByVal [Default] As Integer) As Integer
        ' Returns an integer from your INI file
        Return GetPrivateProfileInt(Section, Key,
                                    [Default], strFilename)
    End Function
 
    Public Function GetBoolean(ByVal Section As String,
                               ByVal Key As String, ByVal [Default] As Boolean) As Boolean
        ' Returns a boolean from your INI file
        Return (GetPrivateProfileInt(Section, Key,
                                     CInt([Default]), strFilename) = 1)
    End Function
 
    Public Sub WriteString(ByVal Section As String,
                           ByVal Key As String, ByVal Value As String)
        ' Writes a string to your INI file
        WritePrivateProfileString(Section, Key, Value, strFilename)
        Flush()
    End Sub
 
    Public Sub WriteInteger(ByVal Section As String,
                            ByVal Key As String, ByVal Value As Integer)
        ' Writes an integer to your INI file
        WriteString(Section, Key, CStr(Value))
        Flush()
    End Sub
 
    Public Sub WriteBoolean(ByVal Section As String,
                            ByVal Key As String, ByVal Value As Boolean)
        ' Writes a boolean to your INI file
        WriteString(Section, Key, CStr(CInt(Value)))
        Flush()
    End Sub
 
    Private Sub Flush()
        ' Stores all the cached changes to your INI file
        FlushPrivateProfileString(0, 0, 0, strFilename)
    End Sub
End Class

Dim uname As String
        Dim objIniFile As New IniFile("ПУТЬДОВАШЕГОФАЙЛА\base.ini")
 
        uname= objIniFile.GetString("General", "setup", "значениепоумолчаниюеслипусто")

Dim objIniFile As New IniFile("ПУТЬДОВАШЕГОФАЙЛА\base.ini")
 
        objIniFile.WriteString("General", "setup", "чтонужнозаписать")

    Private Class NativeMethods
 
        <DllImport("kernel32", CharSet:=CharSet.Ansi, BestFitMapping:=False, ThrowOnUnmappableChar:=True)>
        Public Shared Function WritePrivateProfileString(ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer
          
        End Function
 
        <DllImport("kernel32", CharSet:=CharSet.Ansi, BestFitMapping:=False, ThrowOnUnmappableChar:=True)>
        Public Shared Function GetPrivateProfileString(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
           
        End Function
    End Class