Вопрос по созданию формы - VB

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

Создаю форму типа: Dim ff as New form1
и так их создается несколько и каждую надо как-то распознать
была идея: Dim ff(10) as New form1, что бы как-то просматривать что делаеться в каждой форме, но это не выход так как их может быть и 15 и 20 и т.д.
Следуя из этого хотел создать клон form1, но имя формы сделать уникальным, а не form1.
Вот такой вопрос.
Надеюсь объяснил понятно:)

Решение задачи: «Вопрос по созданию формы»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> Form_MouseMove(Button <font color="blue">As</font> <font color="blue">Integer</font>, Shift <font color="blue">As</font> <font color="blue">Integer</font>, X <font color="blue">As</font> <font color="blue">Single</font>, Y <font color="blue">As</font> <font color="blue">Single</font>)
Label1.Caption = X & <font color="teal">" "</font> & Y
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Form_Resize()
<font color="blue">Me</font>.<font color="blue">Width</font> = Picture1.Left + Picture1.<font color="blue">Width</font> + <font color="darkblue"><b>200</b></font>
<font color="blue">Me</font>.Height = Picture1.Top + Picture1.Height + <font color="darkblue"><b>800</b></font>
<font color="blue">Me</font>.Refresh
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Picture1_MouseMove(Button <font color="blue">As</font> <font color="blue">Integer</font>, Shift <font color="blue">As</font> <font color="blue">Integer</font>, X <font color="blue">As</font> <font color="blue">Single</font>, Y <font color="blue">As</font> <font color="blue">Single</font>)
<font color="blue">If</font> Button = <font color="darkblue"><b>1</b></font> <font color="blue">Then</font>
Picture1.Top = Picture1.Top + Y - Picture1.Height / <font color="darkblue"><b>2</b></font>
Picture1.Left = Picture1.Left + X - Picture1.<font color="blue">Width</font> / <font color="darkblue"><b>2</b></font>
Label1.Caption = X & <font color="teal">" "</font> & Y
<font color="blue">Call</font> Form_Resize
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Call</font> Form_MouseMove(Button, Shift, Picture1.Left + X, Picture1.Top + Y)
<font color="blue">End</font> <font color="blue">Sub</font>

                        