[VB6] Visualizzare menu tramite tasto dx . mouse su voce di un ListBox.

[Marvellous]

Dovrei visualizzare un menu personalizzato tramite un click del tasto destro del mouse su una qualsiasi voci presente in un controllo ListBox (deve essere selezionata almeno una voce).
Trattasi di FORM MDI su cui ho già creato il menu tramite l'EDITOR DI MENU.

Ho fatto la procedura che intercetta il tasto del mouse

Private Sub ls_tipo_immobile_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  intMouseState = Button
End Sub

il problema è in queta procedura ...

Private Sub ls_tipo_immobile_Click()
    Select Case intMouseState
        Case vbLeftButton
            'non fa nulla
        Case vbRightButton
            PopupMenu frm_Main.mnu_PopUp_Gest_Tabelle
        Case Else
    End Select
End Sub

...che non scatta quando faccio clic tasto destro sul mouse.

Suggerimenti, idee, imput

Grazie a tutti

[Meldon]

Prova a inserire il controllo del tasto direttamente nell'evento MouseDown. Dovrebbe funzionare.

Una cosa del tipo

If Button = vbRightButton then

popupmenu ...

End if

Alla prossima

[Marvellous]

Ciao Meldon,

Ecco la procedura

Private Sub ls_tipo_immobile_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  intMouseState = Button
  
    If intMouseState = vbRightButton Then   
            If Me.ls_tipo_immobile.ListIndex = -1 Then
                frm_Main.mnu_modifica_richiesta.Enabled = False
                frm_Main.mnu_elimina_richiesta.Enabled = False
            Else
                frm_Main.mnu_modifica_richiesta.Enabled = True
                frm_Main.mnu_elimina_richiesta.Enabled = True
            End If
            PopupMenu frm_Main.mnu_PopUp_Gest_Tabelle
    End If
End Sub

Grazie mille