Adding byte arrays to an ArrayList

[JonJacobs]

When I add a series of byte arrays to an array list, then I read them back, all the arraylist byte array elements are identical to the last byte array entry. What is wrong? The following code will reproduce the problem.

Thanks,

Jon Jacobs

Imports System.Text
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(9) As Byte
        Dim al As ArrayList = New ArrayList
 
        Dim L As Integer
        Dim total As Integer = 0
        For i As Integer = 0 To 5
            L = read(i, a)
            total = total + L
            al.Add(a) 'at this point the value of a is correct
        Next
        al.Add(L)
        al.Add(total)
 
        Dim b0() As Byte = al(0)
        Dim b1() As Byte = al(1)
        Dim b2() As Byte = al(2)
        Dim b3() As Byte = al(3)
        Dim b4() As Byte = al(4)
        Dim b5() As Byte = al(5)
 
        Dim result(54) As Byte ' = ArBldr(al)
        Buffer.BlockCopy(b0, 0, result, 0, 10)
        Buffer.BlockCopy(b1, 0, result, 10, 10)
        Buffer.BlockCopy(b2, 0, result, 20, 10)
        Buffer.BlockCopy(b3, 0, result, 30, 10)
        Buffer.BlockCopy(b4, 0, result, 40, 10)
        Buffer.BlockCopy(b5, 0, result, 50, 5)
 
        Dim S As String = Encoding.ASCII.GetString(result)
 
        MessageBox.Show(S)
    End Sub
 
    Private Function read(ByVal index As Integer, ByVal b() As Byte) As Integer
        Dim buf() As Byte
        Select Case index
            Case 0
                buf = Encoding.ASCII.GetBytes("AAAAAAAAAA")
                Buffer.BlockCopy(buf, 0, b, 0, buf.Length)
                Return buf.Length
            Case 1
                buf = Encoding.ASCII.GetBytes("BBBBBBBBBB")
                Buffer.BlockCopy(buf, 0, b, 0, buf.Length)
                Return buf.Length
            Case 2
                buf = Encoding.ASCII.GetBytes("CCCCCCCCCC")
                Buffer.BlockCopy(buf, 0, b, 0, buf.Length)
                Return buf.Length
            Case 3
                buf = Encoding.ASCII.GetBytes("DDDDDDDDDD")
                Buffer.BlockCopy(buf, 0, b, 0, buf.Length)
                Return buf.Length
            Case 4
                buf = Encoding.ASCII.GetBytes("EEEEEEEEEE")
                Buffer.BlockCopy(buf, 0, b, 0, buf.Length)
                Return buf.Length
            Case 5
                buf = Encoding.ASCII.GetBytes("FFFFF")
                Buffer.BlockCopy(buf, 0, b, 0, buf.Length)
                Return buf.Length
            Case Else
                Return 0
        End Select
    End Function
 
End Class