PRIVATE M_FORM2 AS FORM2
Private Sub Form2MenuItem_Click (Byval E AS System.Event, Byval E AS System.EventArgs) Handles Form2MenuItem.click
IF m_form2 is nothing orelse m_form2.isdisposed the
M_Form2 = New Form2
m_form2.mdiparent = me
m_form2.show ()
Else
m_form2.activate ()
END IF
End Sub
