97 Sub Button1_Click
98 Log("Button1 Click event fired")
99 scanner = builder.Initialize("Barcode").BleepEnabled(True).EnableAutoFocus(True).withBackfacingCamera.Text("DonManfred presents").TrackerColor(Colors.Red).build
100 scanner.startScan
101 End Sub