请问有谁会Visual Basic 6.0吗？

Dim x As Integer, y As Integer

--------------------------------------------------------
Private Sub Command1_Click()
   
    Command1.Move x, y
    x = x + 1
    y = y + 1
   
End Sub



我单步执行 都没有问题，但是我全速运行的时候，就点了一下，他就说我x 和 y向上溢出了