Each Array is of a specific datatype.
$arCar AS Object[]
$blue AS CCar
$red AS CCar
$green AS CCar
STATIC PUBLIC SUB Main()
hForm AS Fmain
hForm = NEW Fmain
hForm.show
END
PUBLIC SUB _new()
$blue = NEW CCar("blueCar", 300, 400.34)
$red = NEW CCar("redCar", 200, 300.56)
$green = NEW CCar("greenCar", 100, 200.34)
$arCar = NEW Object[]
$arCar.Add($blue)
$arCar.Add($red)
$arCar.Add($green)
END
PUBLIC SUB Button1_Click()
i AS Integer
txt AS String
FOR i = 0 TO 2
txt = txt & $arCar[i].getBrand() & "<br>"
NEXT
TextLabel1.Text = txt
END