Sub fm_MessageArrived (Message As RemoteMessage)
Log("Message arrived")
Log($"Message data: ${Message.GetData}"$)
log("I´ll not do anything but creating this LOG-Entry")
'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