Protected Sub DateEdit1_Init(ByVal sender As Object, ByVal e As EventArgs) Handles DateEdit1.Init
Dim dateEdit As ASPxDateEdit = sender
dateEdit.MinDate = DateTime.Now
End Sub