mouse wheel prob

I think this should do it:

wheel_dir = MouseZSpeed()

If wheel_dir > 0
  tileindex = tileindex + (1 And (tileindex < lastindex))
ElseIf wheel_dir < 0
  tileindex = tileindex - (1 And (tileindex > firstindex))
EndIf