'Example:  Creating a SHARED 'TYPE' array.
TYPE TestData
  Row AS BYTE
  Col AS BYTE
END TYPE
'Create array and fill first element
HiMom
'Access array and display first element values
HiDad
SUB HiMom ()
  DIM MyData(20) AS SHARED TestData
  MyData(1).Row = 1
  MyData(1).Col = 2
END SUB
SUB HiDad ()
  ' declare the array as SHARED and DIMmed outside the SUB
  DIM MyData(MIN,1) AS SHARED TestData
  PRINT MyData(1).Row
  PRINT MyData(1).Col
END SUB
---
 * QMPro 1.53 * Crime DOES pay!  Ask any priest or politition!
--- WILDMAIL!/WC v4.12 
---------------