This code should work:
Code:
Sub App_Start
task1.New1
task1.CreateNew
Task1.StartDate = DateParse("09/20/2008")
Msgbox("Date: " & Date(task1.StartDate))
End Sub
There is a mistake in the example from the manual.
StartDate and DueDate resolution is whole days only. You
can't change the time.