Private Sub StartSerialIncrementalSearch(ByVal startSerialNumber As Integer)

        Dim item1 As ListViewItem = Me.lstItemsStock.FindItemWithText(startSerialNumber.ToString, True, 0)

        If item1 IsNot Nothing Then

            item1.Selected = True

            Me.lstItemsStock.EnsureVisible(item1.Index)

            Me.lstItemsStock.TopItem = item1

        End If

    End Sub