Android Question Get BT Paired list in Service

            Dim tmpSerial1 As Serial: tmpSerial1.Initialize("")
            Dim PairedDevices As Map
            PairedDevices.Initialize
            PairedDevices = tmpSerial1.GetPairedDevices
         
            Dim l As List: l.Initialize
            For I = 0 To PairedDevices.Size - 1
                l.Add(PairedDevices.GetKeyAt(I))
            Next
     
            Dim sf81 As Object = InputListAsync(l, "Choose Device", -1, True)
            Wait For (sf81) InputList_Result(Ret As Int)