把VB这段代码简写

Shape1(0).Width = "500"
Shape1(1).Width = "500"
Shape1(2).Width = "500"
Shape1(3).Width = "500"
Shape1(4).Width = "500"
Shape1(1).Height = "500"
Shape1(2).Height = "500"
Shape1(3).Height = "500"
Shape1(4).Height = "500"

Private Sub Command1_Click()
Dim i As Long

For i = 0 To 4
Shape1(i).Width = "500"
Shape1(i).Height = "500"
Next
End Sub

Dim i As Integer For i = 0 To 4 With Shape1(i) .Width = "500" .Height = "500" End With Next i

用循环吧.. for(int i;i<4;i++)

{

Shape1(i).Width = "500"

Shape1(i).Height = "500"

}

忘了vb的循环格式是不是这样写了...