Option Explicit

Const ws_visible = &H10000000
Const ws_child = &H40000000
Const WM_USER = 1024
Const WM_CAP_EDIT_COPY = WM_USER + 30
Const wm_cap_driver_connect = WM_USER + 10
Const wm_cap_set_preview = WM_USER + 50
Const wm_cap_set_overlay = WM_USER + 51
Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Const WM_CAP_SEQUENCE = WM_USER + 62
Const WM_CAP_SINGLE_FRAME_OPEN = WM_USER + 70
Const WM_CAP_SINGLE_FRAME_CLOSE = WM_USER + 71
Const WM_CAP_SINGLE_FRAME = WM_USER + 72
Const DRV_USER = &H4000
Const DVM_DIALOG = DRV_USER + 100
Const PREVIEWRATE = 30

Private Declare Function SendMessage 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 capCreateCaptureWindow Lib "avicap32.dll" _
    Alias "capCreateCaptureWindowA" (ByVal a As String, _
                ByVal b As Long, _
                ByVal c As Integer, _
                ByVal d As Integer, _
                ByVal e As Integer, _
                ByVal f As Integer, _
                ByVal g As Long, _
                ByVal h As Integer) As Long

Dim hwndc As Long
Dim saveflag As Integer
Dim pictureindex As Integer
Dim filter1(-1 To 1, -1 To 1) As Single
Dim filter2(-1 To 1, -1 To 1) As Single
Dim temp As String

Private Sub Command1_Click()
   Unload Me
End Sub

Private Sub Form_Load()
On Error GoTo handler:
   hwndc = capCreateCaptureWindow("CaptureWindow", _
                                ws_child Or ws_visible, _
                                0, _
                                0, _
                                Picture1.Width, _
                                Picture1.Height, _
                                Picture1.hWnd, _
                                0)
   If (hwndc <> 0) Then
       temp = SendMessage(hwndc, wm_cap_driver_connect, 0, 0)
       temp = SendMessage(hwndc, wm_cap_set_preview, 1, 0)
       temp = SendMessage(hwndc, WM_CAP_SET_PREVIEWRATE, PREVIEWRATE, 0)

       temp = SendMessage(Me.hWnd, WM_CAP_EDIT_COPY, 1, 0)
       Picture1.Picture = Clipboard.GetData
   Else
       MsgBox "Unable to capture video.", vbCritical
   End If
Exit Sub
handler:
End
End Sub