Копирование изображения

[Xaker_S]

Привет всем!!!
Народ, помогите с копированием изображения.
Короче даны 2 формы. В первой форме 2 ImageBox с рисунками. Во второй форме-1 ImageBox.
Надо вот что: В первой форме: при перетаскивании изображения из первого ImageBox во второй ImageBox рисунок во втором ImageBox должен остаться прежним, а тем временем 1-ый ImageBox из первой формы должен скопироваться во вторую форму в ImageBox.

[Amed]

Использоваться должна, как я понимаю, технология drag'n'drop "схватить-и-бросить" в интерпретации моего препода по информатике:

Код: Выделить всё

'Код формы:
'Предполагается, что находятся 2 формы: frm1 и frm2.
'На них размещены контролы Image с именами Image1 и Image2 (на frm1), а также Image1 (на frm2).
'Устанавливаем свойство DragMode Image1 на frm1 в 1(Auto) и пишем код в форме frm1:

Private Sub Image2_DragDrop(Source As Control, X As Single, Y As Single)
frm2.Image1.Picture = Source.Picture
End Sub

'Можно ещё установить проверку на ошибки:
'Если drag'n'drop поступит с контрола, у которого нет параметра Picture,
'то сгенерируется ошибка...
'Но я думаю, пока это не нужно, если понадобится, я ещё напишу ;)


[Xaker_S]

Спасибо.