عمل كالندر

Private Sub Calendar1_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender

Dim day As CalendarDay = e.Day

Dim cell As TableCell = e.Cell

Dim lblEvent As New Label()

Select Case day.Date

Case #2/10/2011#

lblEvent.Text = "1st Event"

cell.Controls.Add(lblEvent)

Case #2/15/2011#

lblEvent.Text = "2nd Event"

cell.Controls.Add(lblEvent)

Case #2/28/2011#

lblEvent.Text = "3rd Event"

cell.Controls.Add(lblEvent)

End Select

End Sub