Option Explicit On
Option Strict On
 
Public Class Form1
 
    Dim panels(3) As Panel
 
    Public Sub New()
        For a As Integer = 0 To 3
            panels(a) = New Panel
            With panels(a)
                .Name = "Panel" + (a + 1).ToString()
                .BorderStyle = BorderStyle.FixedSingle
            End With
            With New Form
                .Name = "Form" + (a + 1).ToString()
                .TopLevel = False
                .Parent = panels(a)
                .Text = .Name
                .WindowState = FormWindowState.Normal
                .Show()
            End With
            Me.Controls.Add(panels(a))
        Next
        InitializeComponent()
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Resize
        Me.panels(0).Size = New Size(CInt((Me.Width - 6) / 2), CInt((Me.Height _
        - 26) / 2))
        For a As Integer = 1 To 3
            Me.panels(a).Size = Me.panels(0).Size
        Next
        Me.panels(0).Location = New Point(0, 0)
        Me.panels(1).Location = New Point(0, Me.panels(0).Height - 2)
        Me.panels(2).Location = New Point(panels(0).Width - 2, 0)
        Me.panels(3).Location = New Point(panels(0).Width - 2, panels(2).Height _
          - 2)
    End Sub
 
End Class