Sub JobDone (Job As HttpJob)
ProgressDialogHide
If Job.Success = True Then
Dim strReturn As String = Job.GetString
Dim parser As JSONParser
parser.Initialize(strReturn)
Dim root As List = parser.NextArray
For Each colroot As Map In root
Dim TL1 As TWL
TL1.A = colroot.Get("ID")
TL1.B = colroot.Get("image")
TL1.C = colroot.Get("post")
TL1.D = colroot.Get("title")
TL1.E = colroot.Get("desc")
Next
'
BBCodeView1.Text = TL1.D & CRLF & CRLF & TL1.E
Else
MsgboxAsync(Job.ErrorMessage, "Error")
End If
Job.Release
End Sub