… = Scanner[…] (gb.scanner)

Dim hScanner As Scanner
Dim hScannerOption As ScannerOption
hScannerOption = hScanner [ Name As String ]