Sub btnAdd_Click
Dim m As Map = CreateMap()
m.Initialize
m.Put("Type","Delivery")
m.Put("ONum","")
m.Put("Address","")
m.Put("Phone","613-")
lperiod.Hours = DateTime.GetHour(DateTime.Now)
lperiod.Minutes = DateTime.GetMinute(DateTime.Now)
m.Put("Time",lperiod)
ShowDialog(Item, RowId)