VB6 Camera　可连续拍照, 读取点颜色, 粘贴夹保存文件(Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
　　　　　　(ByVal lpszWindowName As String, _
　　　　　　 ByVal dwStyle As Long, _
　　　　　　 ByVal X As Long, ByVal Y As Long, _
　　　　　　 ByVal nWidth As Long, ByVal nHeight As Long, _
　　　　　　 ByVal hwndParent As Long, _
　　　　　　 ByVal nID As Long) As Long)