Sub RequestGender
    Dim NaObj As NativeObject
    NaObj = NaObj.Initialize("FBSDKAccessToken")
    Dim Token As String = NaObj.RunMethod("currentAccessToken",Null).GetField("tokenString").AsString
    Dim Url As String = $"https://graph.facebook.com/v2.8/me?fields=gender&access_token=${Token}"$
   
    Dim API As HttpJob
    API.Initialize("API",Me)
    API.Download(Url)
End Sub
Sub JobDone (J As HttpJob)
    If J.JobName = "API" Then
        Dim JSON As JSONParser
        JSON.Initialize(J.GetString)
        Dim Gender As String = JSON.NextObject.Get("gender")
        Log("Gender : " & Gender)
    End If
End Sub