Vettore del tipo di una Classe specifica creata

E' possibile dichiarare ed instanziare anche una variabile vettoriale del tipo di una Classe specifica creata dal programmatore.

Vediamo di seguito un semplice esempio, nel quale abbiamo una Classe specifica, che chiameremo Class1.class, creata dal programmatore:

Public b As Byte
Public sh As Short
 

Public Function provavettore(valore As Byte) As Integer
 
 Dim i As Integer
 
 
   i = CInt(valore) + 500
   
   Return i
 
End

Mentre nella Classe principale si dichiarerà la Classe secondaria come vettore. Tale vettore del tipo di quella Classe specifica, Class1.class creata, conterrà nei propri elementi variabili ordinarie del tipo di quella medesima Classe specifica, Class1.class:

Public ccll As New Class1[]


Public Sub Main()

 Dim cl1, cl2, cl3 As New Class1
 Dim i As Integer
 
 
  With cl1
    .b = 11
    .sh = 111
  End With
 
  ccll.Add(cl1)
 
 
  With cl2
    .b = 22
    .sh = 222
  End With
 
  ccll.Add(cl2)
   

  Print ccll[1].sh + cl3.provavettore(ccll[0].b)


End