Bug? Load a List [solved]

 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)
    'From this point by changing the content of cols it changes the content of the first list1 position
    cols (0) = "F"
    cols (1) = "G"
    cols (2) = "H"
    cols (3) = "I"
    cols (4) = "L"
    list1.Add (cols)
    'Here I find list1 (1) and list1 (2) equal
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)
    'This works well
End Sub [/ CODE]
Watching him with debugging seems that the newly inserted record with List1.add remains connected to the array of cols supporting, then the next assignment change the current record. The only difference is the method with i write cols, but to do
    cols (0) = "A"
    cols (1) = "B"
    cols (2) = "C"
    cols (3) = "D"
    cols (4) = "E"
It is not equivalent to do
    cols = Array As String ( "A", "B", "C", "D", "E")
?
Thanks and regards.

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.AddAll (cols)

    cols (0) = "F"
    cols (1) = "G"
    cols (2) = "H"
    cols (3) = "I"
    cols (4) = "L"
    list1.AddAll (cols)

end Sub

list1.AddAll(Array As String("A", "B", "C", "D", "E"))