pitch slide

For x#=11025 To 8000 Step -1
Print x#
Print 11025/x#

SetChannelRate(chan,11025.0/x#)

m=MilliSecs()
While MilliSecs()<(m+100)
Wend
Next

just dont do it!
Am I missing somthing or is pitch sliding with max not possible?