Public Class frmSplit
 
    Dim base_split As New SplitContainer With _
        {.Parent = Me, .Dock = DockStyle.Fill}
 
 
    Dim sub_split1 As New SplitContainer With _
        {.Dock = DockStyle.Fill, .BorderStyle = BorderStyle.Fixed3D, _
         .Orientation = Orientation.Horizontal}
 
    Dim sub_split2 As New SplitContainer With _
        {.Dock = DockStyle.Fill, .BorderStyle = BorderStyle.Fixed3D, _
         .Orientation = Orientation.Horizontal}
 
 
    Private Sub frmSplit_Load(sender As System.Object, _
                              e As System.EventArgs) Handles MyBase.Load
 
        base_split.Panel1.Controls.Add(sub_split1)
        base_split.Panel2.Controls.Add(sub_split2)
 
        sub_split1.Panel1.BackColor = Color.LightGray
        sub_split1.Panel2.BackColor = Color.LightPink
 
        sub_split2.Panel1.BackColor = Color.LightGray
        sub_split2.Panel2.BackColor = Color.LightPink
 
    End Sub
End Class