Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Pan.Length > 0 Then
If Job.Success = True Then
Dim pan1 As Panel
pan1.Initialize("")
pan1=Pan(Job.Index)
Select Job.Tag
Case "Top"
Pan(Job.Index).GetView(3).SetBackgroundImage(Job.GetBitmap)
Case "Bottom"
Pan(Job.Index).GetView(7).SetBackgroundImage(Job.GetBitmap)
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End If
End Sub