Usign Default web control (or alternate) in VB.NET application

[ourspt]

We are using System.Web.Ui.WebControls.Calendar(Default Web control in .Net)

And we are using following javaScript tp get the selected date to the
corresponding Textboxes
Private Sub calDate_DayRender(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.DayRenderEventArgs) Handles calDate.DayRender

'// Clear the link from this day
e.Cell.Controls.Clear()

'// Add the custom link
Dim Link As System.Web.UI.HtmlControls.HtmlGenericControl
Link = New System.Web.UI.HtmlControls.HtmlGenericControl
Link.TagName = "a"
Link.InnerText = e.Day.DayNumberText
Link.Attributes.Add("href",
String.Format("javascript:window.returnValue = '{1:d}'; window.close();",
Request.QueryString("field"), e.Day.Date))

'// By default, this will highlight today's date.
If e.Day.IsSelected Then
Link.Attributes.Add("style",
Me.calDate.SelectedDayStyle.ToString())
End If

'// Now add our custom link to the page
e.Cell.Controls.Add(Link)

End Sub
Look and Feel