[Grabber2006]

Если на сканере есть кнопки, то это окно можно привязать, например, к кнопке "Сканировать". Делается в Свойствах сканирования -> События.

[Angry Demon]

Подскажите как программно открыть вот это стандартное диалоговое окно сканера?

Можно, например, при помощи Process Explorer определить процесс, отвечающий за сканирование, перетащив значок прицела на окно сканирования.

[NickM]

test009, здесь не смотрели?

UPD:
Что-то типа такого:

Код:

Set oDlg = CreateObject("WIA.CommonDialog")
Set Dev = oDlg.ShowSelectDevice 
oDlg.ShowAcquisitionWizard Dev

[test009]

Благодарю всех, кто откликнулся.
Я сделал так:

Код:

Set oDlg = CreateObject("WIA.CommonDialog")
Set Device = CreateObject("WIA.DeviceManager")

for each devInfo in Device.DeviceInfos
	devName = devInfo.Properties("Name").Value
	if InStr(devName, "EPSON Perfection") > 0 then
		Set dev = devInfo.Connect()
		
		'MsgBox devName
		'MsgBox "found!"
		oDlg.ShowAcquisitionWizard dev
	end if

next