Spanish Leer codigo de barra

Private zxslv As zxScannerLiveView
zxslv.Initialize("zxslv")

zxslv.HudVisible = True
zxslv.PlaySound = True
zxslv.Visible = False
zxslv.SameCodeRescanProtectionTime = 500
zxslv.CameraToUse = zxslv.BACK

Sub Salir_Click(ActionBar As ClsActionBar, botonera As View)
    zxslv.stopScanner
    Rutinas.Partedeform="LeeerCB"
    Activity.Finish
    StartActivity("comprobar")       
End Sub


Sub Bt_1_Click ' Escanea
    zxslv.Visible = True
    zxslv.startScanner
End Sub

Sub zxslv_scanresult
    Rutinas.CodBarras  = zxslv.ScanResult
    Lb_1.Text= zxslv.ScanResult
End Sub

Sub zxslv_scanner_started
    Log("Scanner Started")
End Sub

Sub zxslv_scan_error
    Rutinas.PonMsgbox("Comprobación Anillas","Error Leyendo C.Barras")
End Sub

Sub zxslv_scanner_stopped
    Log("Scanner stopped")
   
End Sub