or


Dim p1 As Integer = GetSetting("splWidth1", 100)Dim pnl As SplitPanel = SPL.SplitPanels(0)
pnl.SetBounds(pnl.Left, pnl.Top, p1, pnl.Height)
SplitPanel1.Size = New Point(p1, SplitPanel1.Height)
SplitPanel2.Width = GetSetting("splWidth2", 100)


Public Class RadRibbonForm1 Private Sub RadButtonElement1_Click(sender As Object, e As System.EventArgs) Handles RadButtonElement1.Click Dim childForm As New Form() childForm.Text = "MDI Child " & DateTime.Now.ToShortTimeString() childForm.MdiParent = Me childForm.Show() End Sub Private Sub RadButtonElement2_Click(sender As Object, e As System.EventArgs) Handles RadButtonElement2.Click Dim frmChild As Form For Each frmChild In Me.MdiChildren frmChild.Close() Next End Sub Public Sub New() ' This call is required by the designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. Me.IsMdiContainer = True With Me.RadDock1 .AutoDetectMdiChildren = True .ShowDocumentCloseButton = True .ToolWindowInsertOrder = Telerik.WinControls.UI.Docking.DockWindowInsertOrder.ToBack End With End SubEnd Class

