BLE Blood Pressure Meter Pairing

I want to connect Blood pressure meter (BLE), but for pairing need to do the following functions
Slave Security Request
View attachment 43559

Pairing Response
View attachment 43558
How can i implement this? My code is below, i can see device name in paired list but device not sending data.

Code:

  Sub BroadcastReceiver_OnReceive (Action As String,  i As  Object)
Dim  intnt  As  Intent = i
Dim BtPairingVariant As  Int
Dim BtPinBytes() As  Byte
Dim Bleomronpin As String...  

BLE Blood Pressure Meter Pairing

from B4X Community - Android, iOS, desktop, server and IoT programming tools http://ift.tt/1SDi0Jt
via IFTTT