Option Strict On
Option Explicit On
 
Public Class frmIni
 
   <System.Runtime.InteropServices.DllImport("kernel32.dll", _
     SetLastError:=True)> _
   Private Shared Function GetPrivateProfileString _
                       (ByVal lpAppName As String, _
                        ByVal lpKeyName As String, _
                        ByVal lpDefault As String, _
                        ByVal lpReturnedString As System.Text.StringBuilder, _
                        ByVal nSize As Integer, _
                        ByVal lpFileName As String) As Integer
    End Function
 
 
    Private Sub frmIni_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Dim myIniFile As String
        Dim lResult As Int32
        Dim Meldung As String = "Ini-Konfiguration"
 
        myIniFile = "C:\Daten\Test.ini"
 
        If Not IO.File.Exists(myIniFile) Then
            MsgBox("Ini nicht gefunden", , Meldung)
        Else
            Dim sValue As New System.Text.StringBuilder(500)
 
            lResult = GetPrivateProfileString _
                ("MeineSektion", "MeinSchluessel", "", sValue, sValue.Capacity, _
                  myIniFile)
 
            If lResult = 0 Then
                If MsgBox("Test.ini ist nicht konfiguriert!", _
                MsgBoxStyle.YesNo, Meldung) = MsgBoxResult.Yes Then
                    '.......
                End If
            Else
                MsgBox("Schlüsselwert: " & sValue.ToString, , Meldung)
            End If
        End If
    End Sub
End Class