VB Code:
  1. Private Type tVals
  2.   Val as Long
  3.   Loc as POINTAPI
  4. End Type
  5.  
  6. Private Type tSys
  7.   strName$  
  8.   Vals() as tVals 'dynamic UDT array
  9. End Type