WIA, Vista и VB6. Этот код работает?

В основном ограничения здесь заключаются в том, что я должен использовать WIA, потому что я пытаюсь заставить свое программное обеспечение сканера работать в Windows 7 и Vista. Было бы предпочтительнее (действительно, предпочтительнее), если бы я мог сделать это в VB6. Теперь этот код у меня компилируется и все такое, однако, когда я запускаю его, я получаю сообщение об ошибке «Нет доступных устройств WIA выбранного типа». Я начинаю подозревать, что мой сканер несовместим с WIA.

Может ли кто-нибудь подтвердить, что этот код должен работать? (необходимо работать с любым устройством WIA, а не только со сканерами)

Dim WIADia As WIA.CommonDialog
Dim Scan As WIA.DeviceManager


Set WIADia = New WIA.CommonDialog
Set Scan = WIADia.ShowSelectDevice(WIA.WiaDeviceType.UnspecifiedDeviceType, True, False)
WIADia.ShowAcquisitionWizard (Scan)

Спасибо!