Sub Page1_BarButtonClick (Tag As String)
Select Tag
Case "Start"
scanner.Start
Sleep(100)
Dim scanrect As Rect
scanrect.Initialize(50, 10, 250, 210)
scanner.ScanRect = scanrect
btnStop.Enabled = True
btnStart.Enabled = False
Case "Stop"
scanner.Stop
btnStart.Enabled = True
btnStop.Enabled = False
End Select
End Sub