Dim farbe As String = ReadLine("textdatei.txt", 3)
If farbe = "red" then
     OvalShape1.FillColor = Color.Red
Elseif farbe = "yellow" then
     OvalShape1.FillColor = Color.Yellow
Elseif farbe = "green" then
     OvalShape1.FillColor = Color.Green
Else
     'Hier kannst du eine z.B. DefaultFarbe setzen
End if
OvalShape1.FillStyle = PowerPacks.FillStyle.Solid

Dim farbe As String = ReadLine("textdatei.txt", 3)
OvalShape1.FillColor = Color.FromName(farbe)
OvalShape1.FillStyle = PowerPacks.FillStyle.Solid