' Bei Rechtsklick, Eintrag selektieren
' und PopUp-Menü anzeigen
Private Sub lstMain_MouseDown(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  ' Rechtsklick!
  If Button = vbRightButton Then
    Dim oItem As ListItem
    With lstMain
      ' Eintrag ermitteln...
      Set oItem = .HitTest(x, y)
      If Not oItem Is Nothing Then
        ' ... selektieren ...
        Set .SelectedItem = .ListItems(oItem.Index)
 
        ' ... und PopUp-Menü anzeigen
        PopUpMenu mnuPopUp 
      End If  
    End With
  End If
End Sub

Private Sub lstMain_MouseDown(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
 
   If (Button = 2) Then
      Me.lstMain.HitTest(x, y).Selected = True
      PopupMenu mnuEdit, , , , mnuDetails
   End If
 
End Sub