Sub fm_MessageArrived (Message As RemoteMessage)
Log("DEBUG")
Log("Message arrived")
Log("From: " & Message.From)
Log("ID : " & Message.MessageId)
Log("Message: " & Message)
Log("Time: " & DateTime.Time(Message.SentTime))
''Log($"Message data: ID ${Message.MessageId}, Data ${Message.GetData}"$)
Dim MMap As Map = Message.GetData
''MMap.Initialize
Log("mMap.Size = " & MMap.Size)
''map = CreateMap("body1":Message.GetData,"title1":Message.GetData)
For Each key As String In MMap.Keys
Log("key = " & key)
Dim value As Int = MMap.Get(key)
Log("value = " & value)
Next
' Dim n As Notification
' n.Initialize
' n.Icon = "icon"
' n.SetInfo(Message.GetData.Get("title"), Message.GetData.Get("body"), Main)
' n.Notify(1)
End Sub