This example sets the 3D-axis system components stored in
iAxisComponentsArray to
the Position object associated with MyObject:
Dim iAxisComponentsArray( 11 )
' x axis components
iAxisComponentsArray( 0 ) = 1.000
iAxisComponentsArray( 1 ) = 0
iAxisComponentsArray( 2 ) = 0.707
' y axis components
iAxisComponentsArray( 3 ) = 0
iAxisComponentsArray( 4 ) = 0
iAxisComponentsArray( 5 ) = 0.707
' z axis components
iAxisComponentsArray( 6 ) = 0
iAxisComponentsArray( 7 ) = -0.707
iAxisComponentsArray( 8 ) = 0.707
' origin point coordinates
iAxisComponentsArray( 9 ) = 1.000
iAxisComponentsArray( 10 ) = 2.000
iAxisComponentsArray( 11 ) = 3.000
MyObject.Position.SetComponents iAxisComponentsArray