Public Class parentForm Private childCountInteger As Integer Private Sub displayChildFormToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles displayChildFormToolStripButton.Click 'Display Child Form. Dim aChildForm As New childForm 'Need to reset counter to 0 if no open windows. childCountInteger += 1 With aChildForm .MdiParent = Me .Text = "Child Form Document" & childCountInteger.ToString() .Show() End With End Sub Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click 'Display open windows tiled vertically. Me.LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click 'Display open windows tiled horizontally. Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click 'Cascade open windows. Me.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub parentForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class