'Irgendwo definiert
        Dim txBreite As New TextBox With {.Parent = Me, .Name = "Breites"}
        Dim txHöhe As New TextBox With {.Parent = Me, .Name = "Höhes"}
        Dim txTiefe As New TextBox With {.Parent = Me, .Name = "Tiefes"}
 
 
        Dim alllines() As String = IO.File.ReadAllLines("Dateipfad")
 
        For i As Integer = 0 To alllines.Length - 1
            Dim parts() As String = alllines(i).Split(":"c)
            If parts.Length = 2 Then
                Dim ctl() As Control = Me.Controls.Find(parts(0), True)
                If ctl.Length = 1 AndAlso TypeOf ctl(0) Is TextBox Then
                    ctl(0).Text = parts(1)
                End If
            End If
        Next i