Multiple backgroundworkers problem

 Private bwkWorkers As New List(Of BackgroundWorker)
'Star by creating the maximum number of worker threads.
private sub startworking()
        For index As Integer = 1 To Me.maxThreadCount Step 1
            'Creat the new worker and add it to the collection.
            worker = New BackgroundWorker
            worker.WorkerReportsProgress = True
            worker.WorkerSupportsCancellation = True
            Me.bwkWorkers.Add(worker)

            'Attach the event handlers.
            AddHandler worker.DoWork, AddressOf DoWork
            AddHandler worker.ProgressChanged, AddressOf ProgressChanged
            AddHandler worker.RunWorkerCompleted, AddressOf RunWorkerCompleted

            'Start working.
            worker.RunWorkerAsync(Me.workIndex)
        Next
end sub

Private Sub DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
      Dim worker As BackgroundWorker = DirectCast(sender, BackgroundWorker)
      Dim workItem As String = DirectCast(e.Argument.ToString, String)

      If worker IsNot Nothing AndAlso workItem IsNot Nothing Then
       'Process the work item here.

       WorkData = GetWebpagePageContent(urlrlist(cint(workItem)))
       If WorkData > 50 Then '//safe check make sure it did not return error string
      '// process the workdatahere

     Else
      '// report error here
     End If

     End If
  End Sub