vb6代码下标越界，请大概指教这段代码错在哪里？

Question

每次运行，即使在相同位置点击，又没有提示错误，但是点击另外位置又会出现错误，下标越界。

请各位大概指教错在哪里？因为我不明白。谢谢

以下是提示错误的代码，标黄错误提示下面这段RaiseEvent ColorClick(Colors(xPs, yPs), Button)

Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
   Dim xPs As Long
   Dim yPs As Long

   xPs = ((x + 1) \ 18) + 1
   yPs = ((y + 1) \ 18) + 1

   RaiseEvent ColorClick(Colors(xPs, yPs), Button)
End Sub

Answer 1

建议你首先确定x和y的范围，然后选择除数因子，18太小了，180或者1800合适些~