<%@ Page Language="VB" Debug="true" %>
<script language="VB" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
  if page.isPostBack then
    myLabel.text = myCalendar.SelectedDate
  end if
end sub
</script>
<form runat="server">
<asp:Calendar id="myCalendar" runat="server"/>
</form>
<asp:label id="myLabel" runat="server"/>