目的：
同じフォーム名で複数フォームを表示し核フォームを管理、削除したい


画面：
Fom1　親元
Form2　複数フォーム

方法：カウンターをフォームのタグにセットする

Dim m_fcnt As Long = 0

ボタンを押す都度
m_fcnt = m_fcnt + 1　　カウンターをアップ

Dim f2 As New Form2　インスタンスを作成
f2.Tag = m_fcnt　　　　カウンターをタグにセット
f2.Show()　　　　　　　表示


管理と削除

For Each frm As Form In New ArrayList(Application.OpenForms)
　if frm IsNot Me Then
      If frm.Text = "Form2" Then   　　　フォーム名
             ListBox1.Items.Add(frm.Tag)　タグ
       End If

        ' frm.Close()　　　　　　　　　　　クローズ
   end　 if
Next

for　nextとカウントならクローズした時点で配列が-1されるので注意