dubletter på forms!

hur undviker jag det?
man kan hålla på och öppna oändliga fönster!

 Private Sub artiklar()
        Dim frm As New artiklar()
'if ? then

          frm.MdiParent = Me
            frm.Show()
            frm.Focus()
            frm.BringToFront()
   'end if    

    End Sub