<%@ Import Namespace="System.Drawing" %>
<!DOCTYPE html>
<html>
<head>
<script runat="server">
Sub ChangeTodayDayStyle(obj As Object, e As EventArgs)
cal1.TodayDayStyle.ForeColor = Color.FromName("Blue")
End Sub
</script>
</head>
<body>
<form runat="server">
<asp:Calendar id="cal1" runat="server">
<TodayDayStyle ForeColor="#FF0000" />
</asp:Calendar>
<asp:Button id="button1" runat="server" OnClick="ChangeTodayDayStyle"
Text="Change TodayDay Style" />
</form>
</body>
</html>