Do Until IndexOutOfRangeException
' Code
Loop

            Dim lines() As String = IO.File.ReadAllLines(datei...)
 
            If Not lines(2) = "Grey" Then
                OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
                OvalShape1.FillColor = Color.FromName(lines(2))
            End If
 
            If Not lines(5) = "Grey" Then
                OvalShape6.FillStyle = PowerPacks.FillStyle.Solid
                OvalShape6.FillColor = Color.FromName(lines(5))
            End If
 
            ' bis OvalShape11
 
            Label5.Text = (lines(0))
            Label9.Text = (lines(3))
            Label10.Text = (lines(6))
            Label11.Text = (lines(9))
            Label12.Text = (lines(12))
            Label13.Text = (lines(15))
            Label14.Text = (lines(18))