Nev, I'm not sure what you want to accomplish, but you can do:
Private tvwButton as Integer
Private Sub lvwList_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
tvwButton = Button
End Sub
Private Sub lvwList_ItemClick(ByVal Item As MSComctlLib.ListItem)
If tvwButton = vbRightButton Then
lvwList.SetFocus
Item.Selected = True
End If
End Sub
This will select the item when you press the right button on top of it.