Collection

 ' Gambas class file


miaCollezione As New Collection

Public Sub Button1_Click()

Dim primoValore As Byte
Dim secondoValore As Integer

 primoValore = 64
 secondoValore = 4000

   With miaCollezione
     .add(primoValore, "primoCampo")
     .add(secondoValore, "secondoCampo")
     .add("terzoValore", "terzoCampo")
   End With

End


Public Sub Button1_Click()

 Print miaCollezione["primoCampo"]   ' scrive in console : 64
 Print miaCollezione["secondoCampo"]   ' scrive: 4000
 Print miaCollezione["terzoCampo"]   ' scrive: terzoValore

End