threading help please -- events never get called

[Kooshesh]

Hello,

I have this loop in a function

System.Threading.ThreadPool.SetMaxThreads(4, 4)

For Each row As DataGridViewRow In DataGridView1.Rows
If Not row.Cells(0).Value Is Nothing Then
Dim user As New myUser(row.Cells(0).Value,
row.Cells(1).Value)
System.Threading.ThreadPool.QueueUserWorkItem(Addr essOf
doMessageRequest, user)
End If

Next

and outside the function I have this:

Dim WithEvents user As myspaceUser
Private Sub Success() Handles user.actionSuccess
Dim sent As Int32 = Convert.ToInt32(lblSent.Text)
Dim totalIds As Int32 = Convert.ToInt32(lblTotalIds.Text)
sent += 1
totalIds += 1
lblTotalIds.Text = totalIds
lblSent.Text = sent

End Sub
Private Sub Failure() Handles user.actionFailure
Dim totalIds As Int32 = Convert.ToInt32(lblTotalIds.Text)
totalIds += 1
lblTotalIds.Text = totalIds
End Sub

which neither seem to get called. Can someone tell me what I'm doing
wrong? I have a the raisevent actionSuccess in my code. here:
Catch ex As Net.WebException
RaiseEvent actionFailure()
Catch sex As IO.IOException
RaiseEvent actionFailure()
End Try
RaiseEvent actionSuccess()


arian