Visual Basic.NET - Mover scroll en listview

Private Function Buscar_ListView( _

    ByVal Cadena As String, _

    ByVal El_ListView As ListView) As String

        Cursor = Cursors.WaitCursor

        Try

            O_Item = lvExamenesLab.FindItemWithText(Cadena)

            If O_Item Is Nothing Then

            Else

                lvExamenesLab.Focus()

                lvExamenesLab.EnsureVisible(O_Item.Index)

                lvExamenesLab.Items(O_Item.Index).Selected = True

            End If

        Catch caEx As CustomAppException

            Cursor = Cursors.Default

            MessageBox.Show(caEx.Message, App.MessageCaption, MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch ex As Exception

            Cursor = Cursors.Default

            ProcessUnhandledException(ex)

        Finally

            Cursor = Cursors.Default

        End Try

    End Function