Code

Private Sub Calendar1_Draw(ByVal sender As Object, ByVal e As MindFusion.Scheduling.WinForms.CustomDrawArgs) Handles Calendar1.Draw

 If e.Element = CustomDrawElements.TimetableCell Then

  ' Check if it is worktime and color appropriately
  Dim workTime As Boolean = False
  Dim mins As Integer = CType(e.StartTime.TotalMinutes, Integer)

  If e.Date.DayOfWeek = DayOfWeek.Monday Then
   If mins >= 8 * 60 And mins < 12 * 60 Then workTime = True
  End If

  If e.Date.DayOfWeek = DayOfWeek.Tuesday Then
   If mins >= 9 * 60 And mins < 11 * 60 Or mins >= 16 * 60 And mins < 18 * 60 Then workTime = True
  End If

  If workTime Then
   Dim b As Brush = New SolidBrush(Color.PaleGoldenrod)
   Dim bounds As Rectangle = e.Bounds
   bounds.Inflate(-1, -1)

   e.Graphics.FillRectangle(b, bounds)

   b.Dispose()
  End If

 End If

End Sub