Save Video Data Into Image And Convert Into Bitmap Format

I have the following code found on internet:
Const WM_CAP_START = &H400S
Const WM_CAP_EDIT_COPY = WM_CAP_START + 30

'The first step is to recognize that the video captured by the web cam can be saved as individual images. By displaying a series of continuous images on the client, it is similar to watching a video stream. To capture an image, I have defined the following subroutine:

'---save the video data into the Image global variable---
Public Sub CaptureImage()
Dim data As IDataObject
Dim bmap As Image
Dim ms As New IO.MemoryStream()
'---copy the image to the clipboard---
[Code] .....

The problem is the code fail to retrieve the image from clipboard? What I'm trying to do is connect to a webcam, then save the video stream file on this webcam as bitmap file before transfer to the client side as an array of bytes.