Private Sub menuItemStartMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemStartMenu.Click Dim startMenu As New StartMenuWindow startMenu.MdiParent = Me startMenu.WindowState = FormWindowState.Maximized startMenu.Show() startMenu.Update() End Sub Private Sub menuItemClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemClose.Click Me.Close() End Sub Private Sub menuItemCascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemCascade.Click Me.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub menuItemTileHorizontal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemTileHorizontal.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub menuItemTileVertical_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemTileVertical.Click Me.LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub menuItemAllClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemAllClose.Click Dim children() As Form = Me.MdiChildren Dim child As Form For Each child In children child.Close() child.Dispose() Next End Sub Private Sub menuItemAboutBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemAboutBox.Click MessageBox.Show("ŒÚ‹q.NET" & vbCrLf & " ver. 0.1") End Sub Private Sub MainWindow_Load(ByVal sender As Object, ByVal e As System.EventArgs) Dim startMenu As New StartMenuWindow startMenu.MdiParent = Me startMenu.WindowState = FormWindowState.Maximized startMenu.Show() startMenu.Update() Dim winform1 As New Form1 winform1.MdiParent = Me winform1.WindowState = FormWindowState.Maximized winform1.Show() winform1.Update() Dim winform2 As New Form2 winform2.MdiParent = Me winform2.WindowState = FormWindowState.Maximized winform2.Show() winform2.Update() End Sub