Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
        <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer

 Private Sub Pic18Timer_Tick(sender As Object, e As EventArgs) Handles _
   Pic18Timer.Tick
        Dim data As IDataObject
        Dim bmap As Image
 
        ' this Sub : stream video to PB1 (PictureBox)
 
 
        ' Copy image to clipboard
        SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
 
        ' Get image from clipboard and convert it to a bitmap
        data = Clipboard.GetDataObject()
        If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
            bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
 
            PictureBox18.Image = bmap
 
        End If
    End Sub