Public Class frmDocumentResultList Private Sub frmDocumentResultList_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub BarToggleSwitchItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarToggleSwitchItem1.CheckedChanged SplitContainerControl1.Horizontal = BarToggleSwitchItem1.Checked End Sub Private Sub BarToggleSwitchItem2_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarToggleSwitchItem2.CheckedChanged SplitContainerControl2.Horizontal = BarToggleSwitchItem2.Checked End Sub End Class