1 Option Private Module
   2 
   3 
   4 
   5 Sub Show_DatePicker()
   6     dlgDemoDatePicker.Show vbModeless
   7 End Sub