Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Select Job.JobName
Case "registeruser"
GetImageFromServer(Me, "http://www.xxxx.com/xxx/xxx.jpg", "getUserImage", "22")
Case "getUserImage"
Dim bmp As Bitmap = Job.GetBitmapSample(100%x,100%y)
' process the image
End Select
Else
Select Job.JobName
Case "getUserImage"
'do something else
End Select
End If
End Sub