Sub ConectarBT
BT.Disable
Do While (BT.IsEnabled)
'Power OFF BT
Loop
BT.Enable
Do While Not (BT.IsEnabled)
'Power ON BT
Loop
If (currentStateText<>"UNSUPPORTED") Then
manager.Scan(Null)
Else
ToastMessageShow("Bluetooth LE NOT supported" ,True) : PWROFFBT
End If
End Sub