Android Question b4a v8 notification led not working

private Sub iNotifyMessage(inStrg As String)
    Dim n As Notification
    
    n.Initialize
    n.Icon = "icon"
    ' TODO See TaskSelect.pHandleMessage()
    Dim xmlStr As String = inStrg.SubString(ModEposApp.EPOS_MESSAGE.Length)
    Dim responseObj As clsMessageRec
    responseObj.Initialize
    responseObj = responseObj.pXmlDeserialize(xmlStr)' TODO - need to determine if the deserialisation was successful
    n.Light = True
    n.SetInfo(responseObj.headingTop, responseObj.headingBottom, TaskSelect)
    n.Notify(1)
End Sub

Dim r As Reflector 'Reflection library
r.Target = n 'notification object
r.SetField("flags", Bit.Or(r.GetField("flags"), 1), "java.lang.int")