' INI-API
    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 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
 
    ' Speichert einen INI-Wert
    Private Sub WriteINI(ByVal Pfad As String, ByVal Sektion As String, _
      Optional ByVal Key As String = vbNullString, Optional ByVal Value As _
      String = vbNullString)
        WritePrivateProfileString(Sektion, Key, Value, Application.StartupPath _
        & "\Settings.ini")
    End Sub
 
    ' Liest einen INI-Wert aus
    Private Function GetINI(ByVal Pfad As String, ByVal Sektion As String, _
      ByVal Key As String, Optional ByVal DefaultValue As String = "") As String
        Dim MyStr As String = Space(100)
        Dim MyLength As Integer = GetPrivateProfileString(Sektion, Key, _
          DefaultValue, MyStr, MyStr.Length, Pfad)
        GetINI = Microsoft.VisualBasic.Left(MyStr, MyLength)
    End Function
 
    Private Sub SaveValues(ByVal Number As Integer)
        ' Werte speichern
        WriteINI(Application.StartupPath & "\settings.INI", Number, "Name", _
          TxtName.Text)
        WriteINI(Application.StartupPath & "\settings.INI", Number, "Alter", _
        TxtAlter.Text)
        WriteINI(Application.StartupPath & "\settings.INI", Number, _
        "Geschlecht", IIf(RdbWeiblich.Checked = True, "w", "m"))
        WriteINI(Application.StartupPath & "\settings.INI", Number, "Gewicht", _
        TxtGewicht.Text)
    End Sub
 
    Private Sub LoadValues(ByVal Number As Integer)
        ' Werte einlesen
        TxtName.Text = GetINI(Application.StartupPath & "\settings.INI", _
          Number, "Name")
        TxtAlter.Text = GetINI(Application.StartupPath & "\settings.INI", _
        Number, "Alter")
        IIf(GetINI(Application.StartupPath & "\settings.INI", Number, _
        "Geschlecht") = "w", RdbWeiblich, RdbMännlich).Checked = True
        TxtGewicht.Text = GetINI(Application.StartupPath & "\settings.INI", _
        Number, "Gewicht")
    End Sub
 
    Private Sub Form1_Closed(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Closed
        If IsNumeric(TxtNr.Text) = True Then
            ' Speichern
            SaveValues(TxtNr.Text)
        End If
    End Sub
 
    Private Sub TxtNr_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TxtNr.TextChanged
        If IsNumeric(TxtNr.Text) = True Then
            ' Speichern
            SaveValues(TxtNr.Tag)
            ' Laden
            LoadValues(TxtNr.Text)
            ' Nr speichern
            TxtNr.Tag = TxtNr.Text
        End If
    End Sub

Meine Homepage: www.dartrax.de