## How to make an Array of a selfdefined datatype

    ' Gambas class file

    arCar AS Object[]
    blue AS CCar
    green AS CCar

    PUBLIC SUB _new()

    blue = NEW CCar("blueCar", 300, 400.34)
    green = NEW CCar("greencar", 100, 200.45)
    arCar = NEW Object[]

      arCar.Add(blue)
      arCar.Add(green)

    END

    PUBLIC SUB Button1_Click()

      i AS Integer
      txt AS String
      FOR i = 0 TO 1
        txt = txt & arCar[i].getBrand() & "
    "
      NEXT
      TextLabel1.Text = txt

    END

-- JochenGeorges - 28 Dec 2004