Public mw As Form2 = New Form2 Public calc As Form3 = New Form3 Public curr As Form4 = New Form4 Public res As Form5 = New Form5 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.IsMdiContainer = True mw.Owner = Me calc.Owner = Me curr.Owner = Me res.Owner = Me mw.MdiParent = Me calc.MdiParent = Me curr.MdiParent = Me res.MdiParent = Me res.Show() curr.Show() calc.Show() mw.Show() Me.LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub SampleMenuMW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SampleMenuM.Click If mw IsNot Nothing Then mw.Close() Else mw.Show() End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)