' Just some tests with the new WIA of Windows ME/XP...
option explicit

Dim objWia
Dim objDeviceInfoCollection
Dim objDeviceInfo
Dim objRootItem, objItem, objSelectedItems

app.ClearTrace

Set objWIA = CreateObject("Wia.Script")
 
Set objDeviceInfoCollection = objWia.Devices

'Set objWia = objWia.Create(Nothing)
 
For Each objDeviceInfo In objDeviceInfoCollection
    app.Trace objDeviceInfo.id & " " & objDeviceInfo.Name
    Set objRootItem = objWia.Create(objDeviceInfo)
    app.trace objRootItem.ConnectStatus

    Set objSelectedItems = objRootItem.GetItemsFromUI(0, 0)
    For Each objItem In objSelectedItems
        objItem.Transfer "c:\tmp\Filename.bmp", False
    Next

Next
app.Trace "Done !!!"