Re
and for the Selected item...
Dim i As Integer
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).EnsureVisible
If ListView1.SelectedItem.Index = ListView1.GetFirstVisible.Index The
Exit For
Next i
Regards
miche
--
michelxl
-----------------------------------------------------------------------
michelxld's Profile:
http://www.excelforum.com/member.php...fo&userid=1736
View this thread:
http://www.excelforum.com/showthread.php?threadid=49823