Sub QRcodeScan_Click
QrScanner.ABGetBarcode("QrCodeScanner", "QR_CODE_TYPES")
End Sub
Sub QrCodeScanner_BarcodeFound (barCode As String, formatName As String)
Dim IndexPassword As Int = barCode.IndexOf("PSW")
Dim IndexName As Int = barCode.IndexOf("NAM")
Dim NAME As String = barCode.SubString2(IndexName+4, IndexPassword)
Dim PSW As String = barCode.SubString(IndexPassword + 4)
TxtCheckPassword.Text = PSW
TxtName.Text = NAME
CallSubDelayed(Me,"SaveValuesToDB")
End Sub