Динамическое добавление контрола на форму - VB

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

Привет всем! Задача в следующем: At run-time необходимо добавлять в указанное место на форме контрол допустим Image со всеми его свойсивами. К примеру следующий код добавляет Image, но без всех присущих ему свойств. Еще плюс ко всему чтобы добавленный добавленный контрол откликался на события (клик, драг&дропы и т.д.)

Set Fishka = Form1.Controls.Add('forms.image.1', 'Name')
   With Fishka
    .BorderStyle = 0 ' ругается 
    .Width = 495
    .Height = 495
    .Picture = Image2.Picture 'тоже ругается
    .Left =  800
    .Top = 800
    .Visible = True
End With

Заранее благодарен!

Решение задачи: «Динамическое добавление контрола на форму»

textual
                            Листинг программы 
                        
                            .CloneID = i