Sub btnScan_Click
#if B4A
'Don't forget to add permission to manifest
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
ToastMessageShow("No permission", True)
Return
End If
' rp.CheckAndRequest(rp.PERMISSION_ACCESS_COARSE_LOCATION)
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
' If Result = False Then
' ToastMessageShow("No permission", True)
' Return
' End If
' Dim phone As Phone
' If phone.SdkVersion >= 31 Then
' For Each Permission As String In Array("android.permission.BLUETOOTH_SCAN", "android.permission.BLUETOOTH_CONNECT")
' rp.CheckAndRequest(Permission)
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
' If Result = False Then
' ToastMessageShow("No permission...", False)
' Return
' End If
' Next
' End If
#end if
pbScan.Show
StartScan
End Sub