It took me a long time but i finally got it. Here is my code.
Private Sub lstRFC_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim LI As ListItem
If Button = vbRightButton Then
Set LI = lstRFC.HitTest(x, y)
If Not LI Is Nothing Then
Me.lstRFC.SelectedItem.Selected = False
Set lstRFC.SelectedItem = LI
PopupMenu popmnuListView
End If
End If
End Sub