Graphics 640, 480, 0, 2
dxSetBuffer dxBackBuffer ()

Repeat

dxCls

Select dxMouseZSpeed ()
Case -1
result$ = "Backwards"
Case 0
; result$ = "No movement"
Case 1
result$ = "Forwards"
End Select

dxText 20, 10, "NOTE: dxMouseZSpeed () = 0 is not listed here, to avoid confusion!"
dxText 20, 40, result$
dxFlip

Until dxKeyHit (1)

End