Private Sub Button1_Click
Dim j As HttpJob
j.Initialize("", Me)
j.Download("https://www.b4x.com/android/forum/threads/notarized-mac-package-not-able-to-access-network.165343/#post-1013765")
Wait For (j) JobDone (j As HttpJob)
If j.Success Then
TextArea1.Text = j.GetString
Else
TextArea1.Text = j.ErrorMessage
End If
j.Release
End Sub