お世話になります

PictureBoxを計算した結果によって出てきた数字分動かすという処理をしているのですが

Private Sub BulletGenerater()
Dim BulletPositionX As Decimal
Dim BulletPositionY As Decimal
Dim AutoDistance As Decimal
AutoDistance = Sqrt(((GetMyPointerPositionOnWindowX + Canon1PositionX) ^ 2) + ((GetMyPointerPositionOnWindowY - CanonPositionY) ^ 2))
BulletPositionX = (GetMyPointerPositionOnWindowX - Canon1PositionX) / AutoDistance * 5 REM ５は試験的に挿入
BulletPositionY = (GetMyPointerPositionOnWindowY - CanonPositionY) / AutoDistance * 5 REM ５は試験的に挿入
Bullet1.Location(BulletPositionX, BulletPositionY)

End Sub

このようにするとエラーになります
何か妙案はないでしょうか　御教授ください