Sub EsempioLista
Dim list1 As List
list1.Initialize
Dim cols(05) As String
cols(0) = "A"
cols(1) = "B"
cols(2) = "C"
cols(3) = "D"
cols(4) = "E"
list1.Add(cols)
' da questo punto modificando il contenuto di cols mi cambia il contenuto della prima posizione di list1
cols(0) = "F"
cols(1) = "G"
cols(2) = "H"
cols(3) = "I"
cols(4) = "L"
list1.Add(cols)
' qui mi trovo list1(1) e list1(2) uguali
End Sub
Sub EsempioLista2
Dim list1 As List
list1.Initialize
Dim cols(05) As String
cols = Array As String ("A","B","C","D","E")
list1.Add(cols)
cols = Array As String ("F","G","H","I","l")
list1.Add(cols)
' questo funziona bene
End Sub