Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
if listview1.listitems.count=0 then exit sub
If ListView1.SelectedItem.Selected = True Then
MsgBox ListView1.ListItems(ListView1.SelectedItem.Index). Text
End If
end sub
Deberas poner la Opcion HotTrackin en true para que al pasar el mouse por encima te logre el efecto que quieres...
y logicos en lugar del msgbox ya diseñaras algo mejor que te evite el detenimiento del programa cada vez que se seleccione el listview1.
Si lo que deseas mostrar es un ListSubItems ya lo especificaras...
Suerte.. Espero haberte servido de ayuda...
__________________
---- Wilfredo Polanco ----
República Dominicana, Santo Domingo, D.N.
|