How to detect all Mouse Keys?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Graphics 650,480,0
While Not KeyHit(key_escape)
    Cls
	WaitEvent()
	Select EventID()
		Case EVENT_KEYDOWN
			DrawText "You pressed keycode " + EventData(),0,0
		Case EVENT_MOUSEDOWN
			DrawText "Pressed mouse button "+ EventData(),0,10
	End Select
	Flip
Wend

End