[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