Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    PopupMenu eee  '此处为你菜单项的名字
End If
End Sub

解决方案 »

  1.   

    可是我自编了一个控件,其中有个picture,把他放到浏览器中运行,我在picture上单击右键,想调出菜单,可是出来的却是IE自己的菜单? 在控件的form上单击右键就可以出菜单,在picture上就不可以,为什麽呢
      

  2.   

    Private Sub Picture_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        PopupMenu Yourmenu  
    End If
    End Sub
      

  3.   

    http://www.csdn.net/expert/topic/651/651607.xml?temp=4.995364E-02
      

  4.   

    可是我现在需要在picture上出菜单啊,怎麽办