VB Code:
  1. DTPciker1.Value = Date