#prompt
#include <directx9\d3dx9.sbp>
Dim v0 = [2, 2, 1] As D3DXVECTOR3
Dim v1 = [1, 2, 0] As D3DXVECTOR3
Dim s As Single
Dim p As VoidPtr
s = D3DXVec3Dot(VarPtr(v0), VarPtr(v1))
memcpy(VarPtr(p), VarPtr(s), SizeOf(VoidPtr))
Print s
Print p, VarPtr(v0) '同じ値になる