Android Question Library creation using b4a only

Public Sub Initialize ( package_name As String, store As String, token As String, Module As Object, EventName As String )
    valore.Initialize
    Dim job1 As HttpJob
    job1.Initialize("MyJob", Me)
    Log("http://api.mevvy.com/v1/apps/"& store &"/"& package_name & "?token=" & token)
    job1.Download("http://api.mevvy.com/v1/apps/"& store &"/"& package_name & "?token=" & token)
    job1.GetRequest.SetHeader("Accept", "application/json")
    MN = Module
    EN = EventName
End Sub

Private Sub JobDone(job As HttpJob)

    If job.Success Then
        Dim res As String
        res = job.GetString
        Log("Response from server: " & res)
        Select job.JobName
          Case "MyJob"
           Dim incrementa As Int = 0
           Dim incrementa_ico As Int = 0
.....