[3booody]

كود :

Dim St As String = "Form2"
       For i As Integer = Application.OpenForms.Count - 1 To 1 Step -1
           If Not Application.OpenForms(i).Text = St Then ' Text او Name
               Application.OpenForms(i).Close()
           End If
       Next