right click

I have a picture box that I need to have left-click and right click functions on. If i use Picture1_Click() it does the same thing no mater if it was a right r a left click.

How can I have it do one thing on a left click and another on a right click?


Thanks
Daniel

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
if button = vbleftbutton then
if button = vbrightbutton then
End Sub

Use the MouseDown event and check the button argument...
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
MsgBox "Right-Click"
End If
End Sub
Hope this helps,
L

cool that worked

Thanks

Just a quick GUI tip. It is usually better to use the MouseUp instead of MouseDown for clicking. MouseDown is better for dragging stuff (ie, resizing controls).