hola prova de esta forma
Saludos
Código:
Dim elemento As ListItem
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
Set elemento = ListView1.HitTest(x, y)
If Not elemento Is Nothing Then
Set ListView1.SelectedItem = elemento
PopupMenu ElMenu
Set elemento = Nothing
End If
End If
End Sub
Saludos
GraxiasS LeandroA por molestarte parece que rula correctamente tu Code
pero no me explico como no me puede funcionar de mi manera le tenio que meter un on error resume next al principio y ya me rula.S@1u2s y Graxias te tomo una copia del code




Madree miaa que .....piii de traducion 
anda que pido poko
me gustaria una que lo isiera en windows ¿Sabeis de alguna? sino no paxa nada tengo live-cd