[VB6] List view e scroll bar

[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