Tak změň:
For counter As Integer = 0 To rgbValues.Length - 1
If counter Mod 3 = 2 Then
rgbValues(counter) = 255
Else
rgbValues(counter) = 0
End If
NextFor counter As Integer = 0 To rgbValues.Length - 1
rgbValues(counter) = 16711680
Next