Android Question Bluetooth StartDiscovery always False

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

#Region  Activity Attributes
    #FullScreen: True
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private xui As XUI
    
    Dim bluetooth As BluetoothAdmin
    Dim serial1 As Serial
    Dim foundDevices As List
    Type nameAndMac(name As String, mac As String)
    Dim connectedDevice As nameAndMac
    Dim connected As Boolean
    Dim ast As AsyncStreamsText
    
    Dim zezwolenia As RuntimePermissions
    
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Private Baudrate As EditText
    Private ConnectButton As Button
    Private DataBits As EditText
    Private Parity As EditText
    Private ScrollView1 As ScrollView
    Private SendButton As Button
    Private StopBits As EditText
    Private TextToSend As EditText
    Private PerDranted As Boolean
    
    Private PermissionButton As Button
    Private ShowBtButton As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    
    Activity.LoadLayout("Layout")
    Activity.Title = "Terminal BT"
    
    If FirstTime Then
        connected = False
        bluetooth.Initialize("bluetoothEvent")
        serial1.Initialize("serial1Event")
        ScrollView1.Initialize(25)
    End If
    
End Sub

Sub Activity_Resume
    
    

End Sub

Sub Activity_Pause (UserClosed As Boolean)
    
    If UserClosed Then
        ast.Close
        serial1.Disconnect
        Activity.Finish
        ExitApplication
    End If

End Sub

#Region zdarzenie bluetooth

Sub bluetoothEvent_StateChanged (NewState As Int, OldState As Int)
    
    Parity.Text = NewState
    
End Sub

Sub bluetoothEvent_DiscoveryStarted
    
    ToastMessageShow("Wysukiwanie rozpoczęto...", True)
    
End Sub

Sub bluetoothEvent_DeviceFound (Name As String, MacAddress As String)
    
    Dim nm As nameAndMac
    nm.name = Name
    nm.mac = MacAddress
    foundDevices.Add(nm)
    ProgressDialogShow("Poszukiwanie urządzeń...@ ".Replace("@", foundDevices.Size))
    
End Sub

Sub bluetoothEvent_DiscoveryFinished
    
    ProgressDialogHide
    If foundDevices.Size = 0 Then
        ToastMessageShow("Nie znaleziono urządzenia blutooth." & CRLF & "Spróbuj ponownie", True)
    Else
        Dim s As List
        s.Initialize
        For i = 0 To foundDevices.Size - 1
            Dim macname As nameAndMac
            macname = foundDevices.Get(i)
            s.Add(macname.name)
        Next
        
        Dim res As Int
        res = InputList(s, "Wybierz urządzenie", -1)
        If res <> DialogResponse.CANCEL Then
            connectedDevice = foundDevices.Get(res)
            ProgressDialogShow("Próba połączenia z:" & CRLF & connectedDevice.name & CRLF & connectedDevice.mac)
            serial1.Connect(connectedDevice.mac)
        End If
    End If
    
End Sub

Sub serial1Event_Connected (Success As Boolean)
    
    ProgressDialogHide
    
    If Success Then
        ToastMessageShow("Połączono OK", True)
        connected = True
        Activity.Title = "Terminal BT - " & " (Połączenie OK)"
        If ast.IsInitialized Then
            ast.Close
        End If
        
        ast.Initialize(Me, "astEvent", serial1.InputStream, serial1.OutputStream)
        
    Else
        connected = False
        ToastMessageShow("Problem z połączeniem", True)
    End If
    
End Sub

Sub astEvent_Error
    
    ToastMessageShow(LastException.Message, True)
    
End Sub

Sub astEvent_Terminated
    
    ToastMessageShow("Połączenie zerwane", True)
    
End Sub

Sub astEvent_NewText(Text As String)
    
    
    
End Sub


#End Region

#Region design

Private Sub TextToSend_TextChanged (Old As String, New As String)
    
End Sub

Private Sub StopBits_TextChanged (Old As String, New As String)
    
End Sub

Private Sub Parity_TextChanged (Old As String, New As String)
    
End Sub

Private Sub DataBits_TextChanged (Old As String, New As String)
    
End Sub

Private Sub SendButton_Click
    
    searchPartner
    
End Sub

Private Sub ConnectButton_Click
    
    startAdapterBt
    
End Sub

Private Sub ShowBtButton_Click
    
    showAdapter
    
End Sub

Private Sub PermissionButton_Click
    
    addPermissions
    
End Sub

Private Sub Baudrate_TextChanged (Old As String, New As String)
    
End Sub

#End Region

#Region funkcje

Sub addPermissions
    
    Dim Permissions As List
    Dim phone As Phone
    If phone.SdkVersion >= 31 Then
        Permissions = Array("android.permission.BLUETOOTH_ADMIN","android.permission.BLUETOOTH_SCAN", "android.permission.BLUETOOTH_CONNECT", "android.permission.BLUETOOTH_ADVERTISE", zezwolenia.PERMISSION_ACCESS_FINE_LOCATION, zezwolenia.PERMISSION_ACCESS_COARSE_LOCATION)
    Else
        Permissions = Array(zezwolenia.PERMISSION_ACCESS_FINE_LOCATION)
    End If
    For Each Per As String In Permissions
        zezwolenia.CheckAndRequest(Per)
        Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
        If Result = False Then
            Return
        End If
    Next
    
    PerDranted = True
    
    PermissionButton.Color = Colors.Green
    
End Sub

Sub startAdapterBt
    
    If PerDranted = False Then
        Return
    End If
    
    If bluetooth.IsEnabled = False Then
        If bluetooth.Enable = False Then
            ToastMessageShow("Nie udało się włączyć blutooth", True)
        Else
            ToastMessageShow("Włączam adapter blutooth...", True)
        End If
    Else
        bluetoothEvent_StateChanged(bluetooth.STATE_ON, 0)
    End If

End Sub

Sub showAdapter
    
    If PerDranted Then
        Dim i As Intent
        i.Initialize("android.bluetooth.adapter.action.REQUEST_DISCOVERABLE", "")
        i.PutExtra("android.bluetooth.adapter.extra.DISCOVERABLE_DURATION", 300)
        StartActivity(i)
    End If
    
End Sub

Sub searchPartner
    
    foundDevices.Initialize
    bluetooth.StartDiscovery
    If bluetooth.StartDiscovery = False Then                                    'jeśli proces poszukiwania urządzeń przerwany to:
        ToastMessageShow("Błąd Poszukiwania", True)                                'wyświetl informacje o błędzie poszukiwaniau urządzeń
    Else                                                                        'wprzeciwnym razie:
        ToastMessageShow("Poszukiwanie urządzeń", True)                            'wyświetl informacje o poszukiwaniu urządzeń
    End If
    
End Sub

#End Region

AddManifestText(
<uses-sdk android:minSdkVersion="21" android:targetSdkVersion="33"/>
<supports-screens android:largeScreens="true"
    android:normalScreens="true"
    android:smallScreens="true"
    android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
CreateResourceFromFile(Macro, Themes.LightTheme)
AddPermission(android.permission.ACCESS_FINE_LOCATION)
AddPermission(android.permission.ACCESS_COARSE_LOCATION)
AddPermission(android.permission.BLUETOOTH_SCAN)
AddPermission(android.permission.BLUETOOTH_CONNECT)
AddPermission(android.permission.BLUETOOTH_ADVERTISE)
AddPermission(android.permission.BLUETOOTH_ADMIN)