あとスクロールの移動量が10pxになったようなので、
一回のスクロール量が少なくなりましたね…
現状は回転角に関係なく±10pxのようなので、回転量に比例するサンプルを作ってみました
前に貼ってもらったコードが元なので改造して使ってください
*mousewheel
	mx=mousex:my=mousey
	//---改良点
	y += ((wparam >> 16 & $FFFFFFFF)/120)*5
	//---以上
	
	/*---解説
	(wparam >> 16 & $FFFFFFFF) では、120の倍数か120の負の倍数が帰ってきます
	がしかし実際は120以外も帰ってくるようなのでまず120で割って角度をポイントで考えます
	1角度1ポイントなのでホイールが5角度分動いたら5ポイントです(下スクロールでのポイントも-5とかになるだけです)
	そしてポイント数を任意の数で掛けます この場合は5です
	一角度ホイールが動き1ポイント*5pxなので一角度のスクロールでは5px動きます
	五角度のホイールスクロールは5*5で25px動きます
	---*/
	if y>b-303:y=b-303
	if y<-1:y=1
	pos 8,50:gcopy 1,0,y,225,303   ;リスト
return
↓動作確認用
	oncmd gosub *mousewheel, $20A
	title ""
	stop
*mousewheel
	y += ((wparam >> 16 & $FFFFFFFF)/120)*5
	title ""+y
return