Private Sub AddResources()
Try
Dim names As String() = New String() {"Alan Smith", "Anne Dodsworth", "Boyan Mastoni", "Richard Duncan", "Maria Shnaider"}
Dim colors As Color() = New Color() {Color.LightBlue, Color.LightGreen, Color.LightYellow, Color.Red, Color.Orange, Color.Pink, _
Color.Purple, Color.Peru, Color.PowderBlue}
Dim i As Integer = 0
For Each Name As String In names
Dim oResource As New Telerik.WinControls.UI.Resource
oResource.Id =
New Telerik.WinControls.UI.EventId(i)
oResource.Name = Name
oResource.Color = colors(i)
oResource.Visible =
True
oResource.Image =
Me.ilstIcons.Images(0)
RadScheduler1.Resources.Add(oResource)
System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)
oResource =
Nothing
Next
RadScheduler1.GetDayView().ResourcesPerView = 2
Catch ex As Exception
MessageBox.Show(ex.ToString())
Finally
End Try
End Sub
Thanks,

radRibbonBarTemplate.Expanded = false;Me.RadRichTextBox1.Document = New RadDocument()Dim provider As New HtmlFormatProvider()Me.RadRichTextBox1.Document = provider.Import(Me.DataSetBindingSource.Current("TEXT2")) 'html from databaseMe.RadRichTextBox1.Document.CaretPosition.MoveToFirstPositionInDocument()Me.RadRichTextBox1.IsReadOnly = True