Call VBA Code From Right Click Menu:

Greetings:

Currently the following code is set to be called via a DblClick on a list box item; is it possible to perform this function by right clicking the item in the list box and selecting a command rather than DblClicking it?

Thanks
Mshelley




Private Sub List0_DblClick(Cancel As Integer)
On Error Resume Next
'Click Sound
PlaySound "H:\Generald\media\start.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
'Set Value for Unit, Agency and Duty Officers
Unit.Value = List0.Column(1)
AGENCY.Value = List0.Column(3)
dutyofficers.Value = List0.Column(4)
'Set date values
Month = Format(Now(), "mm")
Day = Format(Now(), "dd")
Year = Format(Now(), "yyyy")
Dispatched.Value = TIME()

If IsNull(Received) Then
Received.Value = TIME()

End If


End Sub

Yes, just catch the mouseup event and eveluate the button being 2.

VB Code:

Option Explicit
 
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        Call List0_DblClick
    End If
End Sub