Something like this..
Code:
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
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
Hope that helps!
)