AddHandler serverObj.Processes.TaskProcessEnded, AddressOf RemoveTaskProcess

Private Sub RemoveTaskProcess(ByRef server As Server, ByVal pc As VCTaskProcessClass)
If InvokeRequired Then
Dim d As New Processes.DelegateTaskProcessEnded(AddressOf RemoveTaskProcess)
Dim obj(1) As Object
obj(0) = server
obj(1) = pc
BeginInvoke(d, obj)
Else
RemoveTaskProcessRow(pc)
End If
End Sub