or
Private Sub RadGridView1_ToolTipTextNeeded(ByVal sender As Object, ByVal e As Telerik.WinControls.ToolTipTextNeededEventArgs) Handles RadGridView1.ToolTipTextNeeded If TryCast(sender, GridFilterCellElement) IsNot Nothing Then e.ToolTipText = CType(sender, GridCellElement).ToolTipText End IfEnd SubPrivate Sub RadGridView1_ViewCellFormatting(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.CellFormattingEventArgs) Handles RadGridView1.ViewCellFormatting HideFilterText(e.CellElement)End SubFriend Sub HideFilterText(ByVal CellElement As GridCellElement) Dim oFilterCellElement As GridFilterCellElement Try If TryCast(CellElement, GridFilterCellElement) IsNot Nothing Then oFilterCellElement = CType(CellElement, GridFilterCellElement) oFilterCellElement.ToolTipText = oFilterCellElement.FilterOperatorText.Text.Replace(":", "") oFilterCellElement.FilterButton.ToolTipText = oFilterCellElement.FilterOperatorText.Text.Replace(":", "") oFilterCellElement.FilterOperatorText.Visibility = Telerik.WinControls.ElementVisibility.Collapsed End If Catch ex As Exception ' Do nothing End TryEnd Sub'Build Tree ViewPrivate Sub BuildtvOrgan() tvOrgan.RelationBindings.Add(New RelationBinding("CompanyDepts", Me.DepartmentBindingSource)) tvOrgan.RelationBindings.Add(New RelationBinding("Department_Employee", Me.EmployeeBindingSource)) tvOrgan.RelationBindings.Item(0).DisplayMember = "DeptName" tvOrgan.RelationBindings.Item(0).ValueMember = "id" tvOrgan.RelationBindings.Item(0).DataSource = DepartmentBindingSource tvOrgan.RelationBindings.Item(1).DisplayMember = "FName" tvOrgan.RelationBindings.Item(1).ValueMember = "id" tvOrgan.RelationBindings.Item(1).DataSource = EmployeeBindingSource tvOrgan.DataSource = CompanyBindingSource tvOrgan.ValueMember = "id" SetImages(tvOrgan.Nodes) tvOrgan.ExpandAll()End SubIf m_Theme = AvailableThemes.ControlDefault Then m_CurrentTheme = Telerik.WinControls.ThemeResolutionService.GetTheme("ControlDefault") name = "ControlDefault"Else If Not ThemeLoaded(name) Then ThemeResolutionService.LoadPackageResource(name & ".tssp") End IfEnd If m_CurrentTheme = Telerik.WinControls.ThemeResolutionService.GetTheme(name)Telerik.WinControls.ThemeResolutionService.ApplicationThemeName = namem_CurrentTheme.AddColorBlend(blend.Name, blend.BaseHslColor)m_CurrentTheme.ThemeProperties(blend.Name) = blend.BlendHslColorAvailableThemes is an enumeration of theme names. All other themes except ControlDefault are assembly Resources (tssp files).