**see example and use my library**
ble 4.0 Battery,temperature and Humidity level see page 23 in http://www.jnhuamao.cn/bluetooth40_en.zip
and use "AT+BATC1" command for enable battery monitor (one hour update once)
Sub BLE_DeviceFound (Name As String, MacAddress As String,rssi As Int, scanRecord() As Byte)
Dim i As Int
Dim sBatt As String = "0", sTemp As String = "0", sHumidity As String = "0"
For i = 0 To scanRecord.Length -1
If (i+7 < scanRecord.Length) Then
If (scanRecord(i) = 7 AND scanRecord(i+1) = 22 AND scanRecord(i+2) = 0AND scanRecord(i+3) = -80) Then
sBatt = scanRecord(i+7)
sHumidity = scanRecord(i+6)
sTemp = scanRecord(i+5)
EndIf
EndIf
Next
ListView1.AddTwoLines2(Name,rssi & " dBm: batt " & sBatt & " %: temp " & sTemp & " c: humi " & sHumidity & " %", MacAddress)
End Sub