Private Sub Form_Load()DTPicker1.Format = 3DTPicker1.CustomFormat = "yyyy-MM-dd"DTPicker1.Value = Date - 7End Sub