感謝，語法沒下錯，只是忘記先宣告。太久沒玩VB了，忘記不少東西。
最前面先宣告出陣列，後面就可以改成
Dim y(7)
.
.
.
For i = 0 To 7
y(i) = Mid(yo, i + 1, 1)
If y(i) = 0 Then
Shape1(i).BackColor = RGB(128, 128, 128)
Else
Shape1(i).BackColor = RGB(255, 0, 0)
End If
Next i
就完工了，感謝提示XD
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.169.199.77