If creating wrappers is OK for you, it can be done this way:


' -- Types
Type tVertex
x As Single
y As Single
z As Single
End Type