Urgent - PopMenu Failed!!!!

I have a form in which I have displayed many shape controls ( All the Shape Controls are in a single control array ). When I right-click on a Shape Control I display a PopupMenu . It works.

But when I go to another Shape Control and Right-click nothing happens. The previous Pop-Menu remains. I am not able to trap any events. Only if I click the Form with Left-Mouse Button, the Pop-Menu disappears.


How do I display the PopUpMenu at each and every click ?


Thanks in Advance

Anand

Hi ,

I think You do not use True


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

PopupMenu sds, True, X, Y





End If


End Sub

I hope it help you

wael farouk ahmed

hello


put the flag to 2


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

PopupMenu MyMenuName , 2, X, Y





End If


End Sub