单击菜单只运行一个子窗体实例的简单方法

    Private m_Form2 As Form2

 

    Private Sub Form2MenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2MenuItem.Click

        If m_Form2 Is Nothing OrElse m_Form2.IsDisposed Then

            m_Form2 = New Form2

            m_Form2.MdiParent = Me

            m_Form2.Show()

        Else

            m_Form2.Activate()

        End If

    End Sub