Private Sub new_Click() For Each mdifrm In VB.Forms If mdifrm.Caption <> Me .Caption Then Unload mdifrm End If Next End Sub