如何做右键弹出菜单？

67613188

可以参照如下的代码（这是我给别人写程序时候用到的其中一段）
Private Sub ListView_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
    Set ListView.SelectedItem = ListView.HitTest(x, y)
    If Button = 2 Then
        '在屏幕的指定位置弹出快捷菜单（若不指定则在鼠标处）
        If ListView.HitTest(x, y) Is Nothing Then
            CommandBars("Pmn").ShowPopup 'Pmn为快捷菜单的名称
        Else
            CommandBars("Icon").ShowPopup 'Icon为快捷菜单的名称
        End If
    End If
End Sub
看不懂就在相互问一下吗。