Type CustomArray_Type
     As Integer X, Y, Z
     As Single Speed
     As String Object_Name
End Type

Dim CustomArray(10) as CustomArray_Type

Sub Cancel (Array() As CustomArray_Type)
   For I As Integer = Lbound(Array) To Ubound(Array)
     Array(I).X = 5
     Array(I).Y = 4
     Array(I).Z = 3
     Array(I).Speed = 2
     Array(I).Object_Name = "1"
   Next I
End Sub

Cancel(CustomArray())
? CustomArray(5).y
Sleep