كيف انسخ أده ( PictureBox ) عدة نسخ على الفرم في وقت التشغيل

هذا مثال علي نسخ ادة الـ (picturebox) و يمكن تطبيقة علي اي اداة اخري

يجب ان تكون الاداة مصفوفة (يمكن ان تقوم بسنخ الاداة ثم حذف النسخة )

Dim i As Integer

Private Sub Command1_Click()

i = i + 1

Load Picture1(i)

Picture1(i).Visible = True

Picture1(i).Top = Picture1(i - 1).Top + 300

End Sub

Private Sub Form_Load()

i = 0

End Sub

مشكووووووووووووووووووووووور

هذا ما اريد

جزاك الله خير