Dim j As HttpJob
j.Initialize("", Me)
j.Download("https://api.coindesk.com/v1/bpi/currentprice.json")
ProgressDialogShow2("Downloading...", False)
Wait For (j) JobDone (j As HttpJob)
If j.Success Then
Log(j.GetString)
Else
Log("Error: " & j.ErrorMessage)
End If
ProgressDialogHide
j.Release