Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("https://www.kitabinabak.com/kitap/saftirik-greg-in-gunlugu-4-iste-simdi-yandik--jeff-kinney--epsilon-yayinlari--kbk--9789944823579--1")
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim bilgi1 As HtmlElementCollection = WebBrowser1.Document.All

For Each element As HtmlElement In bilgi1
If element.GetAttribute("classname").Contains("new-price siteText") Then
ListView1.Items.Add(element.InnerText)
End If
If element.GetAttribute("classname").Contains("col-xs-3 col-sm-3 col-lg-3 col-md-4 xsCenter") Then
ListView1.Items.Add(element.InnerText)
End If
Next
End Sub
End Class