Sub fm_MessageArriveds (Message As RemoteMessage)
Log("Message arrived")
Log($"Message data: ${Message.GetData}"$)
Dim n2 As Notification
Dim n6 As NB6
Dim nIcon As Bitmap
nIcon = LoadBitmapResize(File.DirAssets, "icon.png", 24dip, 24dip, False)
n6.Initialize("default", Application.LabelName, "DEFAULT").SmallIcon(nIcon)
n6.AutoCancel(True)
n6.BigTextStyle("Title", "Short txt", "Long text")
n2 = n6.Build("Title", "Body", "aTag", Main)
n2.Notify(1)
Main.notitite=Message.GetData.Get("title")
Main.notitext=Message.GetData.Get("body")
If Main.isactive Then
LogColor("acikken geldi",Colors.Yellow)
CallSub(Main, "notiac")
End If
End Sub