Public Class Form1
Dim dic As New Dictionary(Of String, String)
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
Dim h As String = New Net.WebClient().DownloadString(dic(sender.text))
Dim s As String = System.Text.RegularExpressions.Regex.Match(h, "(<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""\d+"">).+?(</table>)", System.Text.RegularExpressions.RegexOptions.Singleline).Value
Me.WebBrowser2.DocumentText = s
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim h As String = New Net.WebClient().DownloadString("http://www.saaid.net/mohamed/m.htm")
Dim matches As System.Text.RegularExpressions.MatchCollection = System.Text.RegularExpressions.Regex.Matches(h, "<font size=""\d+""><a href=""\d+.htm""><font color="".+"">.+[\r\n]?.+</font></a></font></td>")
For Each m As System.Text.RegularExpressions.Match In matches
Dim v As String = m.Value.Replace(vbNewLine, " ")
Dim l As String = "http://www.saaid.net/mohamed/" & System.Text.RegularExpressions.Regex.Match(v, "(?<=<font size=""4""><a href="")\d+\.htm?(?="">)").Value
Dim t As String = Net.WebUtility.HtmlDecode(System.Text.RegularExpressions.Regex.Replace(v, "<.*?>", ""))
dic.Add(t, l)
ListBox1.Items.Add(t)
Next
End Sub
End Class