Sub msdocSetContents(pMap As Map)
Dim msdoc As ABMModalSheet
msdoc = page.ModalSheet("msdoc")
msdoc.Content.Cell(4,1).RemoveComponent("dpdocdocumentdate")
Dim dpdocdocumentdate As ABMDateTimePicker
Dim dpdocdocumentdateDate As Long = DateTime.Now
dpdocdocumentdate.Initialize(page, "dpdocdocumentdate", ABM.DATETIMEPICKER_TYPE_DATE, dpdocdocumentdateDate, "Document Date", "dp")
dpdocdocumentdate.WeekText = "Week"
dpdocdocumentdate.TodayText = "Today"
dpdocdocumentdate.ReturnDateFormat = "YYYY-MM-DD"
dpdocdocumentdate.ReturnTimeFormat = ""
dpdocdocumentdate.Language = "en"
dpdocdocumentdate.FirstDayOfWeek = ABM.FIRSTDAYOFWEEK_SUNDAY
dpdocdocumentdate.PickText = "OK"
dpdocdocumentdate.CancelText = "Back"
msdoc.Content.Cell(4,1).AddComponent(dpdocdocumentdate)