مدیریت دستگاه های تصویری متصل به کامپیوتر

باید با CreateObject انجام شود 

("CreateObject("Wia.DeviceManager

Properties

Deviceinfos Properties 

Set DevMgr = New WIA.DeviceManager
    For ii = 1 To DevMgr.DeviceInfos().Count
        Debug.Print "DevMgr.DeviceInfos(" & ii & ").Properties!Name.Value = " & DevMgr.DeviceInfos(ii).Properties!Name.Value
        If DevMgr.DeviceInfos(ii).Properties!Name.Value = MyScanner Then Set DevInfo = DevMgr.DeviceInfos(ii)
    Next ii
    
    ' ---
    Set dev = DevInfo.Connect
        
    ' ---
    Set img = dev.Items(1).Transfer(ImageFormat)