[VB6] Visualizzare menu contestuale per ListBox diverso in base a selezione

[Fenix'89]

Private Sub Listuseronline_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu frmMain.mnuUseronline
End If

End Sub

Questo è il codice di quando clikko con il tasto destro