[color=blue]Dim[/color] F [color=blue]As[/color] Form
 
  [color=blue]For Each[/color] F [color=blue]In[/color] Forms
    [color=blue]If[/color] F.Name <> Me.Name [color=blue]Then[/color]
      Unload F
      [color=blue]Set[/color] F = [color=blue]Nothing[/color]
    [color=blue]End If[/color]
  [color=blue]Next[/color]