Private Sub Liste5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = acRightButton Then
Set MyMenu = CommandBars("KisayolAdi")
MyMenu.ShowPopup
End If
End Sub
Koddaki KisayolAdi, Kısayol Menünüzün adı olmalıdır.