Private Sub Object_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Object The name of the ChartSpace, PivotTable or Spreadsheet object that you are trapping this event for.
Button The mouse button that was released. Returns 1 if the primary mouse button was released, 2 if the secondary mouse button was released, 4 if the middle mouse button was released.
Shift The state of the SHIFT, CTRL, and ALT keys when the event occurred. Returns 1 if the SHIFT key was pressed, 2 if the CTRL key was pressed, and 4 if the ALT key was pressed. Returns 0 if neither the SHIFT, CTRL, nor ALT keys were pressed.
x The x coordinate of the mouse pointer.
y The y coordinate of the mouse pointer.
Remarks
For information about using events with VBScript, see Declaring and Using Event Procedures in VBScript .