Dim farbe As String = ReadLine("textdatei.txt", 3)
            If farbe = "red" Then
                OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
                OvalShape1.FillColor = Color.Red
            End If
            If farbe = "yellow" Then
                OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
                OvalShape1.FillColor = Color.Yellow
            End If
            If farbe = "green" Then
                OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
                OvalShape1.FillColor = Color.Green
            End If