Cita de: LeandroA en 31 Julio 2008, 20:07 PM
hola prova de esta formaCódigo [Seleccionar]
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