Private Sub Application_RemoteNotification (Message As Map, CompletionHandler As CompletionHandler)
If ForegroundFlag = False Then
Log("Notification clicked")
End If
Log($"Message arrived: ${Message}"$)
Msgbox(Message, "Push message!")
CompletionHandler.Complete
End Sub
Private Sub Application_Active
fm.FCMConnect 'should be called from Application_Active
Sleep(5000)
ForegroundFlag = True
End Sub
Private Sub Application_Background
fm.FCMDisconnect 'should be called from Application_Background
ForegroundFlag = False
End Sub