Android Question NotificationBuilder light - finally solution ?

Sub SendNotification(nt As NOTIFY1 , show As Boolean, sound As Boolean)
    Dim nb As NotificationBuilder
    Dim nbIn As NotificationInboxStyle
    Dim v() As Long    Dim sb As StatusBarNotification
    Dim r As Reflector
    Dim p As Phone
    Dim myIntent As Intent

'        myIntent.Initialize("", "")
'        myIntent.SetComponent("com.NotifyMe/.notificationservice")   
'        myIntent.PutExtra("Notify_Tag", "ClearLast")

        nb.Initialize
'        nb.setServiceIntent(myIntent)
        nb.Priority = 10
        nb.AutoCancel = True
        nb.Ticker = sb.TickerText
        nb.Number = nt.repeat            'notification repeat number
        nb.When = nt.ntime                'notification time
        nb.DefaultSound = False       
        nb.CustomSound = aa.sound        'custom sound from app settings
        nb.ShowTime = True
        nb.ContentTitle = nt.title
        nb.ContentText = "(" & nt.repeat & ") " & aa.name & " - " & sb.TickerText   
        If msgList.Size > 1 Then
            nb.SubText = "Swipe down for previous notifications..."
            nbIn.Initialize
            nbIn.BigContentTitle = "Previous Notifications"               
            nbIn.SummaryText = actProfile.msg
            'some code removed for adding text to the notificationInboxStyle
            nb.SetStyle(nbIn)
        End If
        nb.SmallIcon = actProfile.icon
        nb.LargeIcon = LoadBitmap(File.DirAssets, actProfile.icon & ".png")
        nb.DefaultLight = False
        nb.DefaultVibrate = False
        If aa.vibrate = True Then                    'vibration on/off defined in app setting
            v = Array As Long(0, 100, 300, 500, 300)
            nb.CustomVibrate = v
        End If
        nb.setCustomLight(aa.rgb, aa.lOn, aa.lOff) 'LED color, time ON and time OFF defined in setting
    
    r.Target = r.GetContext
    r.Target = r.RunMethod2("getSystemService", "power", "java.lang.String")
    Dim scnon As Boolean
    scnon = r.RunMethod("isScreenOn")
    If Not(scnon) Then
        If Not(nFlag.Proximity) Then
            nFlag.Proximity = phSensor.StartListening("ps")    'proximity sensor events
            If nFlag.Proximity = False Then
                ToastMessageShow("Proximity Sensor not supported", False)
                sensorTmr.Enabled = False
            Else
                sensorTmr.Enabled = True
            End If
        End If
    End If
    'removed code to show toast message
    pws.PartialLock
    nb.Notify(notifyID1)
End Sub

'Starter service
Sub Process_Globals
 Dim Notif1 As Notification
...
End sub

Sub Service_Create
    Notif1.Initialize
  
End Sub

'others.bas code module for shared subs
Sub Notif(Content As String, Insistent As Boolean, Sound As Boolean, TargetActivity As Object)
    If Starter.Notif1.IsInitialized = False Then
        Starter.Notif1.Initialize
    End If

    Dim p As Phone
    If p.SdkVersion >= 21 Then
        Dim nb As NotificationBuilder
        nb.Initialize
        nb.DefaultSound = Sound
        nb.DefaultVibrate = Sound
        nb.ContentTitle = ""
        nb.ContentText = Content
        nb.setActivity(TargetActivity)
        If Content <> "" Then
            nb.SmallIcon = "icon"
        Else
            nb.SmallIcon = ""
        End If
        nb.Priority = 4    'IMPORTANCE_HIGH
        nb.AutoCancel = Sound
        nb.setCustomLight(0xff00ff00, 300, 1000)
        'nb.DefaultLight = True
        If p.SdkVersion >= 26 Then
            Dim ctxt As JavaObject
            ctxt.InitializeContext
            Dim manager As JavaObject
            manager.InitializeStatic("android.app.NotificationManager")
            Dim Channel As JavaObject
            Dim importance As String
            If Sound Then importance = "IMPORTANCE_DEFAULT" Else importance = "IMPORTANCE_LOW"
            Dim ChannelVisibleName As String = Application.LabelName
            Channel.InitializeNewInstance("android.app.NotificationChannel", _
                   Array("MyChannelId1", ChannelVisibleName, manager.GetField(importance)))
            manager = ctxt.RunMethod("getSystemService", Array("notification"))
            manager.RunMethod("createNotificationChannel", Array(Channel))
            Dim jo As JavaObject = nb
            jo.RunMethod("setChannelId", Array("MyChannelId1"))
        End If
        Starter.Notif1 = nb.GetNotification
    Else
        Dim n As Notification
        n.Initialize
        n.Sound = Sound
        n.Vibrate = Sound
        n.Insistent = Insistent
        If Content <> "" Then
            n.Icon = "icon"
        Else
            n.Icon = ""
        End If
        n.SetInfo(Application.LabelName, Content, TargetActivity)
        n.AutoCancel = Sound
        n.Light = Sound
        Starter.Notif1 = n
    End If
    Starter.Notif1.Notify(10)
End Sub

log(colors.blue)

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region
'    #AdditionalRes: ..\resources

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private Button1 As Button
    Private Button2 As Button
    Private CheckBox2 As CheckBox
    Private CheckBox1 As CheckBox
    Private vibrate, sound As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("1")
    vibrate = False
    CheckBox1.Text = "Vibration " & vibrate
    sound = False
    CheckBox2.Text = "Sound " & sound
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub notify(b As Int)
    Dim nb As NotificationBuilder

        nb.Initialize
        nb.AutoCancel = True
        nb.SmallIcon = "icon"
        nb.LargeIcon = LoadBitmap(File.DirAssets, "iconb.png")
        nb.Priority = 2
        nb.DefaultVibrate = vibrate    'True 'False
        nb.DefaultSound = sound '    False 'True
        nb.DefaultLight = False   
        If b = 1 Then
            nb.ContentTitle = "Colour RED"
            nb.setCustomLight(Colors.Red, 400, 1000)
            nb.Ticker = "Colour Red"
        Else if b = 2 Then
            nb.ContentTitle = "Colour GREEN"
            nb.setCustomLight(Colors.Green, 400, 1000)
            nb.Ticker = "Colour Green"
        End If
        nb.ShowTime = True
        nb.setActivity(Me)
        nb.Notify(1)   
End Sub

Sub Button2_Click
    notify(2)
End Sub
Sub Button1_Click
    notify(1)
End Sub

Sub CheckBox1_CheckedChange(Checked As Boolean)
    vibrate = Checked
    CheckBox1.Text = "Vibration " & vibrate
End Sub

Sub CheckBox2_CheckedChange(Checked As Boolean)
    sound = Checked
    CheckBox2.Text = "Sound " & sound
End Sub