Сделать фото с веб-камеры и сохранить на диск

Private Sub UserForm_Initialize()
TCap = False
mCapHwnd = capCreateCaptureWindow("VideoCapture", 0, 0, 0, 320, 240, Application.hWnd, 0)
End Sub

Private 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
 
Private Declare Function DestroyWindow Lib "user32" (ByVal hWnd As Long) As Boolean
 
 
Private Declare Function SendMessageAsLong Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Declare Function SendMessageAsString Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
 
 
 
Private Const WM_CAP_START As Long = &H400
Private Const WM_CAP_DRIVER_CONNECT As Long = _
WM_CAP_START + 10
Private Const WM_CAP_DRIVER_DISCONNECT _
As Long = WM_CAP_START + 11
Private Const WM_CAP_FILE_SAVEDIB As Long = _
WM_CAP_START + 25
Private Const WM_CAP_GRAB_FRAME As Long = _
WM_CAP_START + 60
Private Const WM_CAP_DLG_VIDEOFORMAT = _
WM_CAP_START + 41
Private Const WM_CAP_DLG_VIDEOSOURCE = _
WM_CAP_START + 42
 
Private mCapHwnd As Long
 
Private Sub CommandButton1_Click()
TCap = True
SendMessageAsLong mCapHwnd, WM_CAP_DRIVER_CONNECT, 0, 0
 
SendMessageAsLong mCapHwnd, WM_CAP_GRAB_FRAME, 0, 0
SendMessageAsString mCapHwnd, WM_CAP_FILE_SAVEDIB, 0, ThisWorkbook.Path & "\VIDEO.BMP"
                
TCap = False
SendMessageAsLong mCapHwnd, WM_CAP_DRIVER_DISCONNECT, 0, 0
 
End Sub

Private Sub UserForm_Terminate()
    TCap = False
    SendMessageAsLong mCapHwnd, WM_CAP_DRIVER_DISCONNECT, 0, 0
    SendMessageAsLong mCapHwnd1, WM_CAP_DRIVER_DISCONNECT, 0, 0
    DestroyWindow mCapHwnd
    Unload UserForm1
End Sub