Dim dd As DateDialog
dd.ShowCalendar = False
dd.Show(Starter.loc.Localize("birthday1_msg") & CRLF & CRLF & Starter.loc.Localize("birthday2_msg") ,Starter.loc.Localize("birthday3_msg"), Starter.loc.Localize("ok_lbl"),Starter.loc.Localize("cancel_lbl"),"",Null)