Mirage Source

Private Sub Pic_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Select Case Button
  Case vbLeftButton
    'Do one thing.
  Case vbRightButton
    'Do another thing.
  Case vbMiddleButton
    'Do a third thing, even. :P
  Case Else
    'Somehow, somebody has a 4th button, and VB doesn't support a forth button, so it shouldn't even get here... but hey..
  End Select
End Sub