[ابو روضة]

السلام عليكم ورحمة الله وبركاته

كنت اريد جلب مواضيع هذا الموقع بالويب براوزر

http://articles.islamweb.net/media/index...A&vPart=49

داخل الليست بوكس وتكون بالاسماء

وجربت هذا الكود ولم يفلح للأسف

كود :

Public Class Form1
   Dim aaa As New List(Of String)
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim aa As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
       For Each s As HtmlElement In aa
           If s.GetAttribute("className").Contains("ItemTitle") Then
               aaa.Add(s.GetAttribute("href"))
               ListBox1.Items.Add(s.InnerText)

           End If
       Next
   End Sub

   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       Process.Start(aaa(sender.selectedindex))
   End Sub
End Class