Se me ocurre rápidamente que hagas ésto:
Cita: Private Sub Calendar1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
If Calendar1.SelectedDate < Now Then
Calendar1.SelectedDate = Now
Response.Write("No puedes seleccionar fechas menores")
End If
End Sub
Espero te sirva...
Saludos