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


S@1u2s y Graxias te tomo una copia del code
