>>470
乙です。いろいろいじってみました。

ドラッグ処理ですが、以下の追加でどうでしょうか？
それらしく動いてるように思うのですが…。

【79行目あたりにbtndownを追加】
for %0 = 100 to 116
spbtn %0,%0
next
btndown 1 ;追加

【159行目あたりにドラッグ範囲を追加】
if %0<300 mov %0,300;上限と下限設定
if %0>500 mov %0,500
if %5<%1-20 return ;Ｙ座標がはずれたら停止
if %5>%1+20 return