Private Sub UserNotification_Action (Response As Object)
Dim n As NativeObject = Response
Dim ni As NativeObject=n.GetField("notification").GetField("request").GetField("content").GetField("userInfo")
Dim Response2 As Object = n.GetField("notification")
LogColor(Response2,Colors.Green)
Dim n2 As NativeObject = Response2
Dim response3 As Object = n2.GetField("request")
LogColor(response3,Colors.Green)
Dim n3 As NativeObject = response3
Dim response4 As Object = n3.GetField("content")
LogColor(n3.GetField("content").AsString,Colors.Gray)
Dim n4 As NativeObject = response4
Dim titulopush As String = n4.GetField("title").AsString
Dim cuerpopush As String = n4.GetField("body").AsString
'extras
iCodEmpresaPush = ni.GetField("empresa").AsString
iCodPacientePush = ni.GetField("additionalData").AsString
End sub