Partial Class Calendar
    Inherits System.Web.UI.Page


    Protected Sub btnToday_Click(sender As Object, e As EventArgs) Handles btnToday.Click
        Calendar1.SelectedDate = Now().Date()
        L_Date.Text = Calendar1.SelectedDate.ToShortDateString()
    End Sub

    Protected Sub Calendar1_SelectionChanged(sender As Object, e As EventArgs) Handles Calendar1.SelectionChanged
        L_Date.Text = Calendar1.SelectedDate.ToShortDateString()
    End Sub

    Protected Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
        Calendar1.SelectedDate = DateTime.Parse(TB_Date.Text)
        Calendar1.VisibleDate = Calendar1.SelectedDate

    End Sub
End Class