添加form1，然后添加下面代码运行即可，如果要拍照，那么对form背景保存为图片即可，摄像头分辨率需要您设置下。 ``` Option Explicit Private Const WS_CHILD = &H40000000 '常量声明 Private Const WS_VISIBLE = &H10000000 Private Const WM_CAP_START = &H400 Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10 Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53 Private Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52 Private Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50 Private Declare Function capCreateCaptureWindowA Lib "avicap32.dll" ( _ ByVal lpszWindowName As String, _ ByVal dwStyle As Long, _ ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Integer, _ ByVal hWndParent As Long, ByVal nID As Long) As Long '声明两个用于实现拍照功能api函数 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long Private px As Long, py As Long '定义全局分辨率变量 Private Sub Form_Load() Dim uwndc px = 2000 py = 1000 Me.Move 0, 0, px * Screen.TwipsPerPixelX, py * Screen.TwipsPerPixelX '采集 uwndc = capCreateCaptureWindowA("", WS_VISIBLE Or WS_CHILD, 0, 0, px, py, Me.hWnd, 0) '连接 SendMessage uwndc, WM_CAP_DRIVER_CONNECT, 0, 0 SendMessage uwndc, WM_CAP_SET_SCALE, True, 0 '刷新 SendMessage uwndc, WM_CAP_SET_PREVIEWRATE, 40, 0 SendMessage uwndc, WM_CAP_SET_PREVIEW, True, 0 End Sub ```