Private Values As New Collections.Hashtable
 
    Public Sub LoadINI(ByVal Pfad As String)
        Dim CurrentSection As String
        Dim Stream As IO.StreamReader = New IO.FileInfo(Pfad).OpenText
        Values.Clear()
        ' Wenn Fremd-Text in der INI steht
        On Error Resume Next
        ' Alle INI-Zeilen durchgehen
        Do
            Dim NextLine As String = Stream.ReadLine()
            If NextLine Is Nothing Then
                Exit Do
            ElseIf NextLine.StartsWith("[") Then
                CurrentSection = NextLine.Substring(1, 1)
            Else
                Values.Add(CurrentSection & "\" & NextLine.Substring(0, 1), _
                  NextLine.Substring(1))
            End If
        Loop
        Stream.Close()
    End Sub

Meine Homepage: www.dartrax.de