[VB6] List view e scroll bar

[superesse]

Allora...
nella mia form ho un list view popolata con n anagrafiche....

sopra la listview ho un text...
quando l'utente digita all'interno del txt, all'evento KeyUp ricerca nella list view l'anagrafica che comincia con quella/e lettera/e....e se le trovo le seleziono.....

Private Sub RicercaLista(ByVal stesto As String)
Dim inum As Integer
If Trim(stesto) <> "" Then
    For inum = 1 To LSV_Den.ListItems.Count
      If Mid(Trim(UCase(LSV_Den.ListItems(inum).SubItems(1))), 1, Len(Trim(stesto))) = Trim(UCase(stesto)) Then
        LSV_Den.ListItems(inum).Selected = True
        Exit For
      End If
    Next
End If
End Sub

e questa parte funziona bene....
il problema nasce quando l'utente seleziona una lettera che riporta ad una anagrafica che non si vede a video se non scrollando la scrollbar della listview....
in parole povere seleziona correttamente l'anagrafica ma non riesco a capire come far si che la scrollbar della listview si adatti all'altezza della cella selezionata....


spero di essere stato chiaro.....

HELP

[tas]

Usa il metodo EnsureVisible:

Private Sub RicercaLista(ByVal stesto As String)
    Dim inum As Integer

    If Trim(stesto) <> "" Then
        For inum = 1 To LSV_Den.ListItems.Count
            If Mid(Trim(UCase(LSV_Den.ListItems(inum).SubItems(1))), 1, Len(Trim(stesto))) = Trim(UCase(stesto)) Then
                LSV_Den.ListItems(inum).Selected = True
                LSV_Den.ListItems(inum).EnsureVisible
                Exit For
            End If
        Next
    End If
End Sub

[superesse]

GRANDE!!!
Ti vojo bene!!!