Das folgende Codebeispiel zeigt das hinzufügen von speziellen Tagen.
Sub Button1Click(sender As Object, e As EventArgs)
Dim myItem As MonthCalendar.DateItem = New MonthCalendar.DateItem
myItem.Date = New DateTime(2010, 3, 26)
myItem.Text = "Test"
myItem.Background.StartColor = Color.LightBlue
myItem.Background.EndColor = Color.Blue
myItem.Background.TransparencyStartColor = 127
myItem.Background.TransparencyEndColor = 127
myItem.Background.Style = MonthCalendar.EStyle.esGradient
myItem.ForeColor = Color.BlueViolet
myItem.Border.Visible = False
myItem.Range = New DateTime(2010, 6, 26)
myItem.Reccurence = MonthCalendar.DateItemReccurence.Weekly
m_MonthCalendar.Dates.Add(myItem)
m_MonthCalendar.Refresh()
End Sub