怎么用vb调用摄像头

如何用vb调用摄像头
自己这几天打算用vb做个云台控制软件，想在软件里面通过一个picture控件显示摄像头拍摄到的画面，摄像头就是平常用的那种免驱的usb接口的摄像头，虽然网上这方面的东西很多，但是picture里面得到的画面都是黑，没有图像，该怎么弄呢。

Dim Video_Handle As Long

Private Sub Command2_Click()
  Video_Handle = CreateCaptureWindow(PicCapture.hwnd)
End Sub

Private Sub Command1_Click()
  Dim x As StdPicture
  Set x = CapturePicture(Video_Handle)
  SavePicture x, "c:\a.bmp"
End Sub

Private Sub Command3_Click()
  Disconnect Video_Handle
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Disconnect Video_Handle
End Sub



这是网上找到的一段程序，运行以后画面只是黑的。

[解决办法]
用VB操作视频，拍照，我用过很多，不是很理想，关键是卡，而且慢。可以考虑调用第三方控件。


[解决办法]
picture里面得到的画面都是黑,应该把把如何在picture里面得到的画面代码贴一下
另外该问问厂家有没有vb开发的demo
[解决办法]
http://download.csdn.net/source/2979383
[解决办法]
用控件 ezVidC60.ocx ezVidCap.ocx 以前用过。