I didn't get any error report, but, anyhow, I got the solution after combining your code and WAI example codes. However, I got a new problem. I at moment have three wireless logitech webcams. When running the following program, it takes the same picture from the same camera. I suspect because the program has no time sleep to wait for the camera channels changed before taking a picture. On the other hand, the picture is very faint, how can I adjust its brightness.
Here is my code:
Code:
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To DeviceManager1.DeviceInfos.Count
MsgBox DeviceManager1.DeviceInfos(i).Properties("Name").Value & vbCrLf & _
"(" & DeviceManager1.DeviceInfos(i).DeviceID & ")"
Dim picName As String
picName = "pic " + CStr(i) + ".jpg"
Set oImage = DeviceManager1.DeviceInfos(i).Connect.ExecuteCommand(wiaCommandTakePicture).Transfer
oImage.SaveFile picName
Next
End Sub