Sub fm_MessageArrived (Message As RemoteMessage)
Log("Message arrived")
Log($"Message data: ${Message.GetData}"$)
n.Initialize
n.Initialize2(n.IMPORTANCE_DEFAULT)
n.Icon = "icon"
n.OnGoingEvent = False
'n.Sound = True
n.AutoCancel = True
n.SetInfo(Message.GetData.Get("title"), Message.GetData.Get("body"), Main)
B4XPages.MainPage.BadgeNumber = B4XPages.MainPage.BadgeNumber + 1
n.Notify(1)
msgs = msgs + 1
B4XPages.MainPage.reloadSystemMenu(B4XPages.MainPage.BadgeNumber)
End Sub