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

Формулировка задачи:

Добрый день! Как по клику на кнопку сделать копию уже существующего изобраения (массив изображений)? Заранее благодарен...

Решение задачи: «Клонирование существующего изображения (массива изображений)»

textual
                            Листинг программы 
                        

                            Option Explicit
Const rct = 1000
Dim ind&
 
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Debug.Print "Form_DragOver"
    Load Image1(ind)
    With Image1(ind)
        .Stretch = 1
        .Picture = Source.Picture
        .Move X, Y, Source.Width, Source.Height
        .DragMode = 1
        .Visible = 1
    End With
    ind = ind + 1
End Sub
 
 
Private Sub Form_Load()
    On Error Resume Next
    ChDir App.Path
    For ind = 0 To 3
        Load Image1(ind)
        With Image1(ind)
            .Stretch = 1
            .Picture = LoadPicture("avatar445967_15.gif")
            .Move 0, ind * rct, rct, rct
            .DragMode = 1
            .Visible = 1
        End With
    Next
End Sub
                        