Как да попълните списък със списък на всички отворени формуляри

Намерих отговора на въпроса. Следният код работи:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  Dim myForms As FormCollection = Application.OpenForms

  For Each frmName As Form In myForms
    ListBox1.Items.Add(frmName.Name.ToString)
  Next
End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
  If Not ListBox1.SelectedIndex = -1 Then
    Dim myForm As Form = Application.OpenForms(ListBox1.Text)
    myForm.Close()
  End If
End Sub

Където кодът под ListBox1_SelectedIndexChanged може много лесно да бъде поставен в бутон.

My.Application.OpenForms е колекция от отворени форми във вашия проект. Така че нещо като:

For Each f As Form In My.Application.OpenForms
    Me.SomeListBox.Items.Add(f)
Next

След това, за да затворите избрания елемент, това е

DirectCast(Me.SomeListBox.SelectedItem, Form).Close()