Sub fm_MessageArrived (Message As RemoteMessage)
Log("Message arrived")
Log($"Message data: ${Message.GetData}"$)
Dim n2 As Notification
n2.Initialize2(n2.IMPORTANCE_HIGH)
n2.Icon = "icon"
n2.Sound=True
n2.SetInfo2(Message.GetData.Get("title"), Message.GetData.Get("body"),Message.GetData.Get("ilgili"), Main)
n2.Notify(1)
Main.notitite=Message.GetData.Get("title")
Main.notitext=Message.GetData.Get("body")
If Main.isactive Then
CallSub(Main, "notiac")
End If
End Sub