Private Sub Auth_Result(Success As Boolean, Result As Object)
If Success Then
Dim no As NativeObject = Result
Dim credential As NativeObject = no.GetField("credential")
If GetType(credential) = "ASAuthorizationAppleIDCredential" Then
Dim email, name As String
If credential.GetField("email").IsInitialized Then
Dim formatter As NativeObject
name = formatter.Initialize("NSPersonNameComponentsFormatter").RunMethod("localizedStringFromPersonNameComponents:style:options:", _
Array(credential.GetField("fullName"), 0, 0)).AsString
email = credential.GetField("email").AsString
Log(email)
Log(name)
CallSub3(mCallBack, mEventName & "_AuthResult", name, email)
End If
Else
Log("Unexpected type: " & GetType(credential))
End If
Else
CallSub(mCallBack, mEventName & "_Cancel")
End If
End Sub