Dim j As HttpJob
j.Initialize("", Me)
'full list of features available: person.addresses,person.age_ranges,person.biographies,person.birthdays,person.bragging_rights,person.cover_photos,person.email_addresses,person.events,person.genders,person.im_clients,person.interests,person.locales,person.memberships,person.metadata,person.names,person.nicknames,person.occupations,person.organizations,person.phone_numbers,person.photos,person.relations,person.relationship_interests,person.relationship_statuses,person.residences,person.skills,person.taglines,person.urls
j.Download2("https://people.googleapis.com/v1/people/me", _
Array As String("access_token", TokenID, "requestMask.includeField", "person.email_addresses,person.birthdays,person.names"))
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
ParsePersonData(j.GetString)
Else
oauth2.ResetToken
ToastMessageShow("Online data not available.", True)
End If
j.Release