Sub PushIt(page As ABMPage, pTitle As String, pBody As String, pImage As String, pPause As String, pTag As String)
If pPause = "" Then pPause = "5000"
Dim sPush As String
sPush = $"Push.create("${pTitle}", {
body: "${pBody}",
icon: "${pImage}",
timeout: ${pPause},
tag: "${pTag}",
onClick: function() {
b4j_raiseEvent('push_click', {'value':'${pTag}'});
},
onError: function() {
b4j_raiseEvent('push_error', {'value':'${pTag}'});
}
});"$
page.ws.Eval(sPush,Null)
page.ws.Flush
End Sub