Public Sub SetFromDateTime(ByVal dt As Date)
  Property Description  
    Argument dt The DateTime object to be copied  
    Description Copies an existing DateTime object's content into this object  
    Remarks