Dim xPoint(0 To 600) As Double
Dim yPoint(0 To 600) As Double
应该是:
Dim xPoint(0 To 600) As Long
Dim yPoint(0 To 600) As Long