Bmouse = Inkey()
   If Bmouse <> 0 Then
      Is_mouse_event = 1

      Select Case Bmouse

         Case "w" : Print "wheel"
                  G_hid_mouse_report(..............) = ..............
      End Select
   End If