ListView Autoscroll

[AndyDunning]

Folks,

I'm loading a listview on a form with Vehicle Data for a specified client. I
also pass in a specific registration relating to a current client request.
The record is displayed and the corresponding record in the listview appears
selected.

The problem I have is that if the number of records loaded in the listview
can't all be displayed at once the listview won't auto scroll to display the
selected record, the user would have to scroll the listview.

Does anyone know a way of autoscrolling a listview control to display the
selected record.

Thanks

Andy

Dim i As Integer
Dim iChars As Integer
iChars = Len(sReg)
For i = 0 To dlvVehicles.Items.Count - 1
If Mid(dlvVehicles.Items(i).SubItems(1).Text, 1, iChars) = Mid(sReg, 1,
iChars) Then
dlvVehicles.Select()
dlvVehicles.Items(i).Selected = True
End If




Next