[VB] Sauvegarder le texte de plusieurs label

Public Class Config

    Private Shared _Items As New Dictionary(Of String, String)

    Public Shared Function GetItem(ByVal Item As String) As String
        If _Items.ContainsKey(Item) Then Return _Items(Item)
        msgbox("Can't find item '" & Item & "' in configuration file", True)
        Return ""
    End Function

    Public Shared Sub LoadConfig()

        If Not IO.File.Exists("config.txt") Then
            msgbox("Can't find configuration file !", True)
        End If

        Try

            Dim Reader As New IO.StreamReader("config.txt")

            While Not Reader.EndOfStream

                Dim Line As String = Reader.ReadLine

                If Line.Trim.StartsWith("#") Then Continue While
                If Not Line.Contains("=") Then Continue While

                Dim LigneInfos() As String = Line.Split("=".ToCharArray, 2)

                Dim Item As String = LigneInfos(0).ToUpper.Trim
                Dim Value As String = LigneInfos(1).Trim

                If Item = "" Then Continue While

                _Items.Add(Item, Value)

            End While

        Catch ex As Exception

            msgbox("Can't read configuration file !", True)

        End Try

    End Sub

End Class