Imports System
Imports System.Runtime.InteropServices
Imports System.Text
 
Public Class Form1
 
    <DllImport("kernel32", EntryPoint:="WritePrivateProfileString")> _
    Shared Function Schreiben( _
    ByVal Sektion As String, ByVal Key As String, ByVal Value As String, _
    ByVal Dateiname As String) As Int32
 
    End Function
 
    <DllImport("kernel32", EntryPoint:="GetPrivateProfileString")> _
    Shared Function Lesen( _
    ByVal Sektion As String, ByVal Key As String, ByVal StandartVal As String, _
    ByVal Result As StringBuilder, ByVal Size As Int32, ByVal Dateiname As _
    String) As Int32
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim sb As StringBuilder
        sb = New StringBuilder(4096)
 
        'Der Sub zum Lesen.
        INI.Lesen("pfad", "pfad", "", sb, sb.Capacity, "C:\pfad.ini")
 
        MsgBox(sb.ToString, MsgBoxStyle.Information, "Ini Auslesen")
 
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

INI.Lesen("pfad", "pfad", "", sb, sb.Capacity, "C:\pfad.ini")