Dim I, Ping As Integer, oShape() As Shape
ReDim test(0 To 1)
For I = LBound(oShape) To UBound(oShape)
  Ping = (I + 1) * 50
    Set oShape(I) = New Shape1
    Select Case Ping
    Case Is >= 150
      oShape(I).BackColor = vbRed
    Case Is < 80
      oShape(I).BackColor = vbGreen
    Case Is < 150
      oShape(I).BackColor = vbYellow
    End Select
    oShape(I).Height = (1000 / 500) * Ping
    oShape(I).Width = 80
    oShape(I).Top = (Me.Height - oShape(I).Height)
    oShape(I).Left = I * oShape(I).Width
Next