<%@ Page
Inherits="System.Web.UI.MobileControls.MobilePage"
Language="VB"
%>
<%@ Register
TagPrefix="mobile"
Namespace="System.Web.UI.MobileControls"
Assembly="System.Web.Mobile"
%>
Sub calSelectChange(ByVal Sender as Object, _
ByVal E as EventArgs)
Dim i as Integer
lbl1.Text = "You selected:"
For i = 0 to Cal1.SelectedDates.Count - 1
lbl1.Text = lbl1.Text & " " _
& Cal1.SelectedDates(i).ToShortDateString()
Next
End Sub
id="FirstPage"
runat="server">
id="Cal1"
selectionmode="DayWeekMonth"
onselectionchanged="calSelectChange"
runat="server"
/>
id="lbl1"
runat="server"
/>