Public Class frmIni
 
    Dim Sektion As New Dictionary(Of String, Dictionary(Of String, String))
 
    Dim WithEvents lboSektion As New ListBox With _
        {.Parent = Me, .Width = 150, .Height = 460, .SelectionMode = _
        SelectionMode.One}
    Dim lboSchlüssel As New ListBox With _
        {.Parent = Me, .Left = 200, .Width = 200, .Height = 460}
 
    Private Sub frmIni_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.Width = 500 : Me.Height = 500
 
        lboSchlüssel.Items.Clear()
        lboSektion.Items.Clear()
 
        If Not ReadIni(Pfad der IniDatei eintragen) Then
            MsgBox("Ini-Datei konnte nicht gelesen werden")
        Else
            With lboSektion.Items
                For Each section As String In Sektion.Keys
                    .Add(section)
                Next
            End With
        End If
    End Sub
 
    Private Sub lboSektion_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles lboSektion.Click
 
        lboSchlüssel.Items.Clear()
        If lboSektion.SelectedIndex < 0 Then Exit Sub
        With Sektion(CStr(lboSektion.SelectedItem))
            For Each key As String In .Keys
                lboSchlüssel.Items.Add(key & " = " & .Item(key))
            Next key
        End With
    End Sub
 
End Class