or



With Me.rdGridBoundaries .BeginUpdate() .Columns.Clear() .MasterTemplate.AllowAddNewRow = False .MasterTemplate.AutoGenerateColumns = True .MasterTemplate.Reset() .TableElement.RowHeight = 30 .AutoGenerateHierarchy = True .UseScrollbarsInHierarchy = False .MultiSelect = False .MasterTemplate.BestFitColumns() .MasterTemplate.AutoSizeColumnsMode = GridViewAutoSizeColumnsMode.Fill .ReadOnly = True .EnableFiltering = False .EnableGrouping = False .EnableAlternatingRowColor = True .EndUpdate() Try If gasControlLineInformation.GclObjects IsNot Nothing Then .DataMember = "GclObjects" .DataSource = gasControlLineInformationPublic Sub AddButton() Dim buttonElement As New RadButtonElement("...") AddHandler buttonElement.Click, AddressOf buttonElement_Click Dim textBoxItem As RadTextBoxItem = Me.RadTextBox1.TextBoxElement.TextBoxItem textBoxItem.Alignment = ContentAlignment.MiddleLeft Me.RadTextBox1.TextBoxElement.Children.Remove(textBoxItem) Dim dockLayoutPanel As New DockLayoutPanel() dockLayoutPanel.SetDock(textBoxItem, Telerik.WinControls.Layouts.Dock.Left) dockLayoutPanel.SetDock(buttonElement, Telerik.WinControls.Layouts.Dock.Right) dockLayoutPanel.Children.Add(buttonElement) dockLayoutPanel.Children.Add(textBoxItem) Me.RadTextBox1.TextBoxElement.Children.Add(dockLayoutPanel) End Sub