Sub fm_MessageArrived (Message As RemoteMessage)
Dim user As String = Message.GetData.Get("title") '[45]Welcome
Dim userid As String = user.SubString2(user.IndexOf("[")+1,user.IndexOf("]"))
Dim cleantitle As String = user.SubString(user.IndexOf("]")+1)
if (userid="45") then
Dim n As Notification
n.Initialize
n.Icon = "icon"
n.SetInfo(cleantitle, Message.GetData.Get("body"), Main)
n.Notify(1)
endif