Function Arcsin(x) As Double
'**********************************************************
' 逆三角関数Asinを返します。
'**********************************************************
Dim Asin As Double

 Asin = Atn(x / Sqr(-x * x + 1))
 Arcsin = Asin

End Function


If SW = 5 Then

Px = Px - (Delta_x + Length_x / 2)
Py = ((Delta_y + Length_y / 2) - Py)
End If

VPx = Px
VPy = Py

End Sub