Private Declare Auto Function WritePrivateProfileString Lib "Kernel32" _
            (ByVal lpAppName As String, _
            ByVal lpKeyName As String, _
            ByVal lpString As String, _
            ByVal lpFileName As String) As Integer
 
    Private Declare Auto Function GetPrivateProfileString Lib "Kernel32" _
            (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
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim res As Integer = WritePrivateProfileString("application", "Test", _
        "some test data", "f:\Work Dev\VSNet Dev\Test\test.ini")
        Dim sb As String = Space(256)
        res = GetPrivateProfileString("application", "Test", "????????", sb, _
          256, "f:\Work Dev\VSNet Dev\Test\test.ini")
        Dim s As String = sb.Substring(0, res)
        Debug.WriteLine(s)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist