Dim startCommandBytes() As Byte = Array As Byte(5,6,64,0,8,1,91,149)
Dim passwordLogin As String = "00000000"
Dim passwordBytes() As Byte = passwordLogin.GetBytes("UTF8")
blmanager.WriteData("00005301-0000-0041-4c50-574953450000", "00005302-0000-0041-4c50-574953450000", startCommandBytes) 'TX
blmanager.WriteData("00005301-0000-0041-4c50-574953450000", "00005302-0000-0041-4c50-574953450000", passwordBytes)
blmanager.SetNotify("00005301-0000-0041-4c50-574953450000", "00005303-0000-0041-4c50-574953450000",True) 'RX