How do i Add a task/To do in schedular+

I know how to add appointments. I am doing as per below.
similarly i want properties for tasks also
x=CreateObject('scheduleplus.application.7')
IF !x.loggedon()
x.logon
ENDIF
appt=x.Schedulelogged.appointments
count=0
appt.reset
count=1
y=1999 && year
m=6 && month
d=9 && day
when=alltrim(str(m))+"/"+alltrim(str(d))+"/"+alltrim(str(y))+;
" "+right(ttoc(datetime()),11)
when2=alltrim(str(m))+"/"+alltrim(str(d))+"/"+alltrim(str(y))+;
" "+right(ttoc(datetime()+3600),11)
oappt=appt.new
oappt.start=when
oappt.end=when2
myval="test appointment: DP "+alltrim(str(count))
oappt.notes=myval
oappt.text=myval
oappt.busytype=1
oappt=.NULL.


TIA