Клонирование существующего изображения (массива изображений)

Load Image1(1)
Image1(1).Picture=Image1(0).Picture

Image1(1).Picture = LoadPicture("Файл")

Private Sub Form_Load()
        With Controls.Add("vb.Image", "Image1")
        .Stretch = 1 'Автоматический размер
        .Picture = LoadPicture("Ваш файл")
        .Visible = 1
    End With
End Sub

For Check_img_count = 1 To Img_count_x
Load Img(Check_img_count)
With Img(Check_img_count)
.Picture = LoadPicture(App.Path & "\data\img\components\" & Img_url_mass(Check_img_count - 1))
.Left = 700
.Top = (Check_img_count - 1) * Img(Check_img_count - 1).Height * 1.2
.Visible = True
.ToolTipText = Img_url_mass(Check_img_count - 1)
Frame_external.Height = Frame_external.Height + Img(Check_img_count - 1).Height * 1.2
End With
Next Check_img_count

Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
 
End Sub
 
Private Sub Image1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
 
End Sub

Private Sub Img_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
 
For i = 0 To Img_count_x
 
If Index = i Then
 
Load Img(Check_img_count + 1)
With Img(Check_img_count + 1)
.Picture = Img(i).Picture
.Left = X - Image1.Width / 2
.Top = X - Image1.Width / 2
.Visible = True
End With
 
End If
 
Next i
 
End Sub

Option Explicit
 
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Dim p As PictureBox
    Load pic(pic.UBound + 1)
    Set p = pic(pic.UBound)
    Set p.Picture = Source.Picture
    Set p.DragIcon = Source.DragIcon
    p.Move X, Y
    p.Visible = True
End Sub