Private Sub picTray_MouseMove(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
   Select Case Hex(X)
      Case "1E3C", "1E4B"
         Msgbox "RechteMaustaste"
      Case "1E1E"
         Msgbox  "Linke Maustaste"
   End Select
End Sub

____________________________________