Private Sub Authenticate
Log("GoogleOAuth2.Authenticate")
Dim link As String = BuildLink("https://accounts.google.com/o/oauth2/v2/auth", _
CreateMap("client_id": mClientId, _
"redirect_uri": GetRedirectUri, _
"response_type": "code", "scope": mScope))
Dim pi As PhoneIntents
StartActivity(pi.OpenBrowser(link))
End Sub