Untitled

Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim test As String = String.Empty
        If IsPostBack Then
            test = "PostBack"
        Else
            test = "not a post back event"
        End If
    End Sub

    Protected Sub btnDoSomething_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnDoSomething.Click
        Dim dCalendar As DateTime = Calendar1.SelectedDate
        lblInfo.Text = dCalendar.ToString() & " Changed by Button"
    End Sub

    Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Calendar1.SelectionChanged
        Dim dCalendar As DateTime = Calendar1.SelectedDate
        lblInfo.Text = dCalendar.ToString()
    End Sub

    Protected Sub Calendar1_VisibleMonthChanged(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MonthChangedEventArgs) Handles Calendar1.VisibleMonthChanged
        Dim dMonth As Date = e.NewDate
        lblInfo.Text = dMonth.Month
    End Sub
End Class