Dim abm1(0) As Bitmap
 
        abm1(0) = New Bitmap(10, 10)
 
 
        Dim abm2(0) As Bitmap
 
        Array.Copy(abm1, abm2, 1)
 
        If abm1(0) Is abm2(0) Then
            Debug.WriteLine("Shallow copy")
        End If

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov