ミスばっかりでごめんなさい
少々面倒くさくなってしまいましたが
*mousewheel
mx=mousex:my=mousey
if ((wparam >> 16 & $FFFF) >= 120) & ((wparam >> 16 & $FFFF) <= 34951):y+35
if ((wparam >> 16 & $FFFF) <= 65416) & ((wparam >> 16 & $FFFF) >= 34952):y-35
if y>b-303:y=b-303
if y<-1:y=1
pos 8,50:gcopy 1,0,y,225,303;リスト
return
でないと自分の環境では正しく動作しませんでした
これから上スクロールも綺麗に出来ます