Открытие формы внутри другой - Visual Basic .NET

Public Class Form1
    Private Sub НоваяФормаToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles НоваяФормаToolStripMenuItem.Click
        Dim frm As New Form2
 
        ' Индекс форм  не обезателен 
        Dim cnt As Integer
        cnt = Me.MdiChildren.Length
        frm.Text = ""
        frm.Text += "Форма " & Str(cnt)
 
        ''''''''''''''''''''''''''
        frm.MdiParent = Me
        frm.Show()
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.IsMdiContainer = True
    End Sub
 
 
End Class