Private Sub btnLogin_Click
Log("BtnLogin_click")
MSGraph.GetAccessToken
Wait For MSGraph_AccessTokenAvailable (Success As Boolean, Token As String)
Log("Waiting: " & Success & " Token: " & Token)
If Success = False Then
xui.Msgbox2Async("Error accessing account.", "Error", "Aceptar", "", "", Null)
Return
Else
B4XPages.ShowPageAndRemovePreviousPages("PageDashBoard")
End If
End Sub
Private Sub B4XPage_Foreground
Log("B4XPage_Foreground")
#if B4A
MSGraph.CallFromResume(B4XPages.GetNativeParent(Me).GetStartingIntent)
#End If
End Sub