Private Sub Command1_Click()
Dim x As Integer, y As Integer, color As Integer
For x = 100 To 4000
  y = Fix(x / 3)
  color = Fix(255 * (x + 2500) / 4000)
  Pic.Circle (Pic.Width - x, y), (x + 100) / 7, RGB(255, color, 130)
  Next x
End Sub
在运行时一直提示color这里溢出，不知什么原因

谢谢风大，俺还以为是只要结果范围在integer的范围之内，就可以了！