Android Question Minimal B4A sample project that qualifies as default SMS app and appears in the default SMS selection list

Sub RequestDefaultSms
    Dim i As Intent
    Dim P As Phone
    Dim sdk As Int = P.SdkVersion
    Log("Sdk Version ==> " & sdk)
    If sdk >= 29 Then
        Dim jo As JavaObject
        jo.InitializeContext
        Dim roleManager As JavaObject = jo.RunMethod("getSystemService", Array("role"))
       
        If roleManager.RunMethod("isRoleAvailable", Array("android.app.role.SMS")) Then
            Log("android.app.role.SMS is Available")
            If Not(roleManager.RunMethod("isRoleHeld", Array("android.app.role.SMS"))) Then
'                Dim requestIntent As Intent
'                requestIntent = roleManager.RunMethod("createRequestRoleIntent", Array("android.app.role.SMS"))
'                StartActivity(requestIntent)
           
                i.Initialize("android.settings.MANAGE_DEFAULT_APPS_SETTINGS", "")
                StartActivity(i)
                ToastMessageShow("In DEFAULT APPS page, find the 'SMS app' section and select your own application.", True)
            Else
                Log("isRoleHeld")
            End If
        Else
            Log("android.app.role.SMS is not Available")
        End If
    Else  
        i.Initialize("android.provider.Telephony.ACTION_CHANGE_DEFAULT", "")
        i.PutExtra("package", Application.PackageName)
        StartActivity(i)
    End If
End Sub