Dim dpdob As ABMDateTimePicker
Dim dpdobDate As String = DateTime.Now
dpdobDate = ABM.Util.ConvertToDateTimeString(dpdobDate,"yyyy-MM-dd")
dpdob.InitializeISO(page, "dpdob", ABM.DATETIMEPICKER_TYPE_DATE, dpdobDate, "Birth Day", "")
dpdob.WeekText = "Week"
dpdob.TodayText = "Today"
dpdob.ReturnDateFormat = "YYYY-MM-DD"
dpdob.ReturnTimeFormat = ""
dpdob.Language = "en"
dpdob.FirstDayOfWeek = ABM.FIRSTDAYOFWEEK_SUNDAY
dpdob.PickText = "OK"
dpdob.CancelText = "Back"
dpdob.clear
contLogin.Content.Cell(6,1).AddComponent(dpdob)