link calendar

Protected

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

e.Cell.ToolTip = "anything you want here!"
Dim url As String = e.SelectUrl
e.Cell.Controls.Clear()
Dim link As New HyperLink
link.Text = e.Day.Date.Day
link.ToolTip = "anything you want here!"
link.NavigateUrl = url
e.Cell.Controls.Add(link)


End Sub