Sub fm_MessageArrived (Message As RemoteMessage)
Log("Message arrived")
Log($"Message data: ID ${Message.MessageId}, Data ${Message.GetData}"$)
Dim n As NB6
n.Initialize("default", Application.LabelName, "DEFAULT",False).AutoCancel(True)
n.Build(Message.GetData.Get("title"), Message.GetData.Get("body"), "tag", Null,"FirebaseMessaging").Notify(DateTime.Now)
End Sub