Liste5'in Fare Tuşuna Basılırken özelliğine aşağıdaki kodu ekleyerek deneyiniz.

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.