[ابو روضة]

(17-12-20, 11:46 AM)shafik كتب :

كود :

For Each item As HtmlElement In input
   Dim a = item.GetElementsByTagName("a")(0).GetAttribute("href")
   Dim t = item.InnerText.Trim
   If a.ToLower.EndsWith(".htm") Then
       lst.Add(a)
       CheckedListBox1.Items.Add(t)
   End If
Next item

جزاك الله كل الخير.