Hallå,
jag vill stänga alla öppna forms i mitt program (alla utom frmMain, dvs huvudfönstret). Tyvärr får jagi nte riktigt det att fungera.

For Each f As Windows.Forms.Form In My.Application.OpenForms
If Not f.Name = "frmMain" Then
temp(counter) = f
counter += 1
End If
Next

Dim j As Integer
For j = 0 To counter - 1

temp(j).Dispose()
Next

(anledningen att jag gör det i två iterationer är att man inte kan ändra en collection man itererar)

Såhär borde fungera:

Dim i As Integer
For i = Application.OpenForms.Count - 1 To 0 Step -1
If Not Application.OpenForms(i).Name = "frmMain" Then
Application.OpenForms(i).Dispose()
End If
Next

/Johan