I had a hard time finding a solution to this as well, though I was using C#. Try this link for a more detailed explanation of how to do it...
http://msdn.microsoft.com/library/de...sDateTopic.asp
[Visual Basic]
<%@ Page Language="
VB" AutoEventWireup="True" %>
<html>
<head>
<script language="
VB" runat="server">
Sub Selection_Change(sender As Object, e As EventArgs)
Calendar1.TodaysDate = Calendar1.SelectedDate
Label1.Text = "Today's Date is now " & Calendar1.TodaysDate.ToShortDateString()
End Sub 'Selection_Change
</script>
</head>
<body>
<form runat="server">
<h3>Calendar Example</h3>
Select a date on the Calendar control to use as today's date.<br><br>
<asp:Calendar ID="Calendar1" runat="server"
SelectionMode="Day"
ShowGridLines="True"
OnSelectionChanged="Selection_Change">
<SelectedDayStyle BackColor="Yellow"
ForeColor="Red">
</SelectedDayStyle>
</asp:Calendar>
<br>
<asp:Label id="Label1" runat=server />
</form>
</body>
</html>