<!DOCTYPE html>
<html>
<head>
<script language="VB" runat="server">
Sub Page_Load
Response.Write("Today is: ")
Response.Write(cal1.TodaysDate.ToShortDateString())
End Sub
</script>
</head>
<body>
<form runat="server">
<asp:Calendar id="cal1" runat="server" />
</form>
</body>
</html>