if ole_1.object.scanneravailable then
// Enter your code here
else
messagebox("", "Scanner Not Available")
end if

ole_1 это объект типа ole control. Когда вставляется этот объект, на закладке Insert Control из списка выбирается Image Scan Control (может потребоваться чтобы был установлен Imaging for Windows, т.к. этот объект от него).
Этот объект может управлять любым графическим устройством (сканер, фотоаппарат) через twain-драйвер.

для легального использования данного ocx
программу Imaging for Windows придется купить.