Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim matchlinks As String = "]*?HREF\s*=\s*[""']?([^'"" >]+?)[ '""]?[^>]*?>"
Dim val As String = Regex.Match(WebBrowser1.DocumentText, matchlinks, RegexOptions.IgnoreCase).Value
If Not l.Items.Contains(val) Then
l.Items.Add(val)
End If
End Sub