For i = 0 to 9 
Shape1(i).BackColor = "Schwarz" 
Shape1(0).BackColor = "Rot" ' hier setzt Du immer das erste element auf die 
' andere farbe
Next i 
For k = 0 To 9 ' keine ahnung was diese schleife soll
Shape1(k).BackColor = "Schwarz" 
Shape1(1).BackColor = "Rot" 
Next k

' bei meinem beispiel ist die standardfarbe Schwarz
for x = 0 to 9
    if x <> 0 then ' wenn die schleife gerade begonnen hat
        ' das element 0 - 1 (-1) gibt es nicht
        Shape1(x - 1).BackColor = "Schwarz"
    End if
    Shape1(x).BackColor = "Rot"
next x
' um zu verhindern dass das letzte element Rot bleibt
shape1(9).BackColor = "Schwarz"