> Dim x1 As Double> Dim y1 As Double> Dim x2 As Double> Dim y2 As Double他にも原因があるかと思いますが、ぱっと見て気がついたのは上の座標がLong型でないとダメだと思います