自己用月历控件做一个下拉窗口
Dim bcld = e.Form.Controls("Calendar1").basecontrolbcld.MinDate = "2015-10-01"
bcld.MaxDate = "2016-01-01"