Popup Menu

[TheBao]

I create a popup menu. Whenever I right click the menu appear, but if I right click again, the already appeared menu is still at the same position. I want it to move to my new position.

How can i do this?

Here is my code

Private Sub tvMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then
        PopupMenu mnuPopup
    End If
End Sub

Thanks

[crptcblade]

PopUpMenu mnuPopup, 2

There is a constant for 2, but I forget it right now

[filburt1]

Try this just for fun:

If Button = [b]vbRightButton[/b] Then ' use constants!
    PopupMenu mnuPopup, , x, y
End If

[filburt1]

Originally posted by crptcblade
PopUpMenu mnuPopup, 2

There is a constant for 2, but I forget it right now

From the help :

vbPopupMenuRightButton 2 An item on the pop-up menu reacts to a mouse click when you use either the right or the left mouse button.