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
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