Public Class Form1

    Private Sub Btn_1_Click(sender As Object, e As EventArgs) Handles Btn_1.Click
        If Me.P_Main.Controls.Count > 0 Then
            Me.P_Main.Controls.RemoveAt(0)
        End If
        Dim hijo1 As New frmCaja()
        hijo1.TopLevel = False
        hijo1.FormBorderStyle = FormBorderStyle.None
        hijo1.Dock = DockStyle.Fill
        Me.P_Main.Controls.Add(hijo1)
        Me.P_Main.Tag = hijo1
        hijo1.Show()
    End Sub

    Private Sub Btn_2_Click(sender As Object, e As EventArgs) Handles Btn_2.Click
        If Me.P_Main.Controls.Count > 0 Then
            Me.P_Main.Controls.RemoveAt(0)
        End If
        Dim hijo2 As New frmhijo2()
        hijo2.TopLevel = False
        hijo2.FormBorderStyle = FormBorderStyle.None
        hijo2.Dock = DockStyle.Fill
        Me.P_Main.Controls.Add(hijo2)
        Me.P_Main.Tag = hijo2
        hijo2.Show()
    End Sub
End Class

Public Class Form1

    Private Sub Btn_1_Click(sender As Object, e As EventArgs) Handles Btn_1.Click
        frmCaja.TopLevel = False
        frmCaja.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        frmCaja.Dock = DockStyle.Fill
        P_Main.Controls.Add(frmCaja)
        frmCaja.Show()
    End Sub

    Private Sub Btn_2_Click(sender As Object, e As EventArgs) Handles Btn_2.Click
        frmhijo2.TopLevel = False
        frmhijo2.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        frmhijo2.Dock = DockStyle.Fill
        P_Main.Controls.Add(frmCaja)
        frmhijo2.Show()
    End Sub
End Class