Code

Private Sub Calendar_Draw(ByVal sender As System.Object, _
	ByVal e As CustomDrawArgs) Handles Calendar.Draw

	' Get the start time of the cell expressed in minutes
	' relative to the beginning of the containing day
	Dim minutes As Double = e.StartTime.TotalMinutes

	' Calculate a color value according to the cell time
	Dim colorChannel As Integer = _
		255 - Math.Min(255, CType(minutes / 1440 * 255, Integer))
	Dim color As Color = color.FromArgb( _
		colorChannel, colorChannel, colorChannel)

	' Create the brush with the calculated color
	Dim brush As Brush = New SolidBrush(color)

	' Paint the cell
	Dim rect As Rectangle = e.Bounds
	rect.Inflate(-1, -1)
	e.Graphics.FillRectangle(brush, rect)

	' Dispose the brush
	brush.Dispose()

End Sub