Не запускается .DoWork

...
...
 
Public Class Form1
...
Dim URLList, DLList As ArrayList
Dim matches As MatchCollection
Dim WithEvents search As New BackgroundWorker
...
 
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
 
search.RunWorkerAsync()
 
DL()
 
End Sub
 
'конструктор ссылок
Private Sub URLConstructor()
Dim Url as string
' j - количество страниц
for i as integer =1 to j
Url=a+b+c
URLList.Add(URL)
next
 
End Sub
 
 
'скачивание html кода
Private Sub GetHTML()
...
End Sub
 
'cкачивание файлов
Private Sub DL()
...
End Sub
 
 
Public Sub POISK(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles search.DoWork
DLList.Clear()
URLList.Clear()
URLContruction()
For i As Integer = 0 To URLList.Count - 1
GetHTML(URLList.Item(i))
RegexHTML()
Next
End Sub
 
 
'поиск совпадений в html коде
Private Sub RegHTML()
Dim pattern As String = "blabla"
Dim newReg As New Regex(pattern)
Dim matches As MatchCollection = newReg.Matches(HTML)
For i As Integer = 0 To matches.Count - 1
DLList.Add(matches.Item(i))
Next
End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
 
search.RunWorkerAsync()
While BackgroundWorker1.IsBusy
        Application.DoEvents()
End While
DL()
 
End Sub

While search.IsBusy
Application.DoEvents()
End While

While search.IsBusy
Application.DoEvents()
End While

POISK()