Android Question TV Remote control cannot move focus to folder picker

Sub YourMethodToOpenStorageDialog
    Dim StorageDialog As Object
    StorageDialog = ExternalStorage.SelectDir(True)
    SetStorageDialogListener(StorageDialog)
End Sub

Sub SetStorageDialogListener(StorageDialog As Object)
    Dim r As Reflector
    r.Target = StorageDialog
    r.SetOnShowListener("StorageDialog_OnShow")
End Sub

Sub StorageDialog_OnShow
    Dim r As Reflector
    r.Target = Sender
    Dim dlg As Object
    dlg = r.GetField("dialog")
    SetFocusToDesiredView(dlg)
End Sub

Sub SetFocusToDesiredView(dialog As Object)
    ' Use Reflector to find the desired view and call RequestFocus on it.
    ' Example:
    ' Dim r As Reflector
    ' r.Target = dialog
    ' Dim desiredView As Object
    ' desiredView = r.RunMethod2("findViewByName", "nameOfDesiredView", "java.lang.String")
    ' If desiredView <> Null Then
    '     desiredView.RequestFocus
    ' End If
End Sub

Sub SetFocusButtons
    Dim jo1 As JavaObject = Button1
    Dim e1 As Object = jo1.CreateEvent("android.view.View.OnFocusChangeListener", "Button1", False)
    jo1.RunMethod("setOnFocusChangeListener", Array As Object(e1))
End Sub

AddPermission("android.permission.READ_EXTERNAL_STORAGE")
AddPermission("android.permission.WRITE_EXTERNAL_STORAGE")
AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")

B4XPage_Created()
Dim RP As RuntimePermissions
RP.CheckAndRequest(RP.PERMISSION_READ_EXTERNAL_STORAGE)

Dim Sb As StringBuilder
        Sb.Initialize
        Dim Lst As List=File.ListFiles(Pth)
         For I=0 To Lst.Size-1
             Sb.Append(Lst.Get(I) & CRLF)
        Next
        JJ.Text=Sb.ToString
 end sub