Dim elementList As HtmlElementCollection = WebBrowser1.Document.All
Dim kitapList = elementList.Cast(Of HtmlElement).
Where(Function(element) element.GetAttribute("classname").Contains("new-price siteText") Or
element.GetAttribute("classname").Contains("col-xs-3 col-sm-3 col-lg-3 col-md-4 xsCenter")).
Select(Function(el) el.InnerText).ToList()
For i = 0 To kitapList.Count - 1
ListView1.Items.Add(New ListViewItem(New String() {kitapList(i), kitapList(i + 1)}))
i += 1
      Next