The 'Zones' sample demonstrates how to use custom drawing in order to paint different cells in the timetable in different colors. You can find this sample in the 'Samples/VB.NET' sub-folder of your installation directory or download it from the following link:

https://mindfusion.org/_samples/_sample_Zones2.zip

As for the 'Drag & Drop' sample, it might require minor modifications in order to work with grouped timetables. Here is a modified version of the sample:

https://mindfusion.org/_samples/_sample_DragDrop.zip

Meppy

Here is a fragment of the Calendar.Draw event handler body from the Demo application, translated in VB:

If e.Element = CustomDrawElements.TimetableCell Then

    ' Draw all workig cells in a custom fashion
    If e.Date.DayOfWeek <> DayOfWeek.Saturday And _
     e.Date.DayOfWeek <> DayOfWeek.Sunday Then

	  ' Check if this cell is selected
	  Dim d As DateTime = e.Date.Add(e.StartTime)
	  Dim selected As Boolean = Calendar1.Selection.Contains(d)

	  If TimeSpan.Compare(e.StartTime, TimeSpan.FromHours(Calendar1.TimetableSettings.WorkTimeEndHour)) < 0 And _
	   TimeSpan.Compare(e.EndTime, TimeSpan.FromHours(Calendar1.TimetableSettings.WorkTimeStartHour)) > 0 Then

		Dim brush As Brush = Nothing
		If selected Then

		    brush = New HatchBrush(HatchStyle.Percent50, _
		     Color.Goldenrod, Color.Yellow)

		Else

		    brush = New HatchBrush(HatchStyle.Percent50, _
		     Color.Yellow, Color.White)

		    Dim bounds As Rectangle = e.Bounds
		    bounds.Inflate(-1, -1)

		    e.Graphics.FillRectangle(brush, bounds)

		    brush.Dispose()

		End If

	  End If

    End If

End If 

The sample demonstrates how to preserve the cell lines during custom drawing.

Meppy