>>231
ネタ…？

Dim buff_p() As point3D
Dim s, e, rz As Integer

<初期化、計算処理>

Call rotateZ(buff_p, s, e, rz)