Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data

Namespace DevExpress.XtraBars.Demos.Tutorials
	''' <summary>
	''' Summary description for BarDocking.
	''' </summary>
	Public Partial Class BarDocking
		Inherits TutorialControl
		Public Sub New()
			'
			' Required for Windows Form Designer support
			'
			InitializeComponent()

			'
			' TODO: Add any constructor code after InitializeComponent call
			'
		End Sub

		Private Sub radioButton_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButton4.EditValueChanged, radioButton3.EditValueChanged, radioButton2.EditValueChanged, radioButton1.EditValueChanged
			Dim edit As DevExpress.XtraEditors.CheckEdit = TryCast(sender, DevExpress.XtraEditors.CheckEdit)
			If edit.Checked Then
				Dim bar As DevExpress.XtraBars.Bar = CType(barManager1.Bars(0), DevExpress.XtraBars.Bar)
				Select Case edit.Text
					Case "Bottom"
						'<radioButton2>
						bar.DockStyle = DevExpress.XtraBars.BarDockStyle.Bottom
						'</radioButton2>
					Case "Left"
						'<radioButton3>
						bar.DockStyle = DevExpress.XtraBars.BarDockStyle.Left
						'</radioButton3>
					Case "Right"
						'<radioButton4>
						bar.DockStyle = DevExpress.XtraBars.BarDockStyle.Right
						'</radioButton4>
					Case Else
						'<radioButton1>
						bar.DockStyle = DevExpress.XtraBars.BarDockStyle.Top
						'</radioButton1>
				End Select
			End If
		End Sub
	End Class
End Namespace