อาจจะกำหนดค่า ไว้ใน Page_Load ไว้ก่อนเช่น
Dim MinDate As Date = "2020-01-28"
Dim MaxDate As Date = Date.Today
แล้วค่อยสร้าง Sub ดังนี้
Protected Sub Calendar1_DayRender(sender As Object, e As DayRenderEventArgs)Handles Calendar1.DayRender
If e.Day.Date < MinDate OrElse e.Day.Date > MaxDate Then
e.Day.IsSelectable = False
End If
End Sub