Sub App_Start DateFormat("dd/mm/yyyy")End SubSub Calendar1_DropDown calendar1.Value = DateParse(textBox1.Text)End Sub