Захват изображения с web камеры ПК

Dim myCam As New ICam 'Класс ниже
myCam.InitCam(Me.PicOutput.Handle.ToInt32) 'Инициализируем и сразу показываем изображение
myCam.CloseCam() 'Останавливаем/отключаем

Option Explicit On 
Option Strict On
 
Public Class ICam
#Region " Api/Constants "
 
    Private Const WS_CHILD As Integer = &H40000000
    Private Const WS_VISIBLE As Integer = &H10000000
    Private Const SWP_NOMOVE As Short = &H2S
    Private Const SWP_NOZORDER As Short = &H4S
    Private Const WM_USER As Short = &H400S
    Private Const WM_CAP_DRIVER_CONNECT As Integer = WM_USER + 10
    Private Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_USER + 11
    Private Const WM_CAP_SET_VIDEOFORMAT As Integer = WM_USER + 45
    Private Const WM_CAP_SET_PREVIEW As Integer = WM_USER + 50
    Private Const WM_CAP_SET_PREVIEWRATE As Integer = WM_USER + 52
    Private Const WM_CAP_GET_FRAME As Long = 1084
    Private Const WM_CAP_COPY As Long = 1054
    Private Const WM_CAP_START As Long = WM_USER
    Private Const WM_CAP_STOP As Long = (WM_CAP_START + 68)
    Private Const WM_CAP_SEQUENCE As Long = (WM_CAP_START + 62)
    Private Const WM_CAP_SET_SEQUENCE_SETUP As Long = (WM_CAP_START + 64)
    Private Const WM_CAP_FILE_SET_CAPTURE_FILEA As Long = (WM_CAP_START + 20)
 
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (hwnd As Integer, wMsg As Integer, wParam As Short, lParam As String) As Integer
    Private Declare Function capCreateCaptureWindowA Lib "avicap32.dll" (lpszWindowName As String, dwStyle As Integer, x As Integer, y As Integer, nWidth As Integer, nHeight As Short, hWndParent As Integer, nID As Integer) As Integer
    Private Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (wDriver As Short, lpszName As String, cbName As Integer, lpszVer As String, cbVer As Integer) As Boolean
    Private Declare Function BitBlt Lib "GDI32.DLL" (hdcDest As IntPtr, nXDest As Integer, nYDest As Integer, nWidth As Integer, nHeight As Integer, hdcSrc As IntPtr, nXSrc As Integer, nYSrc As Integer, dwRop As Int32) As Boolean
 
#End Region
 
    Private iDevice As String
    Private hHwnd As Integer
    Public iRunning As Boolean
    Private CamFrameRate As Integer = 1
    Private ReadOnly OutputHeight As Integer = 240
    Private ReadOnly OutputWidth As Integer = 360
 
    Public Sub ResetCam()
        'resets the camera after setting change
        If iRunning Then
            CloseCam()
            Application.DoEvents()
            If SetCam() = False Then
                MessageBox.Show("Errror Setting/Re-Setting Camera")
            End If
        End If
    End Sub
 
    Public Sub InitCam(ParentH As Integer)
        'Gets the handle and initiates camera setup
        If iRunning Then
            MessageBox.Show("Camera Is Already Running")
            Exit Sub
        Else
            hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, OutputWidth, CShort(OutputHeight), ParentH, 0)
            If Not SetCam() Then MessageBox.Show("Error setting Up Camera")
        End If
    End Sub
 
    Public Sub SetFrameRate(iRate As Long)
        'sets the frame rate of the camera
        CamFrameRate = CInt(1000 / iRate)
        ResetCam()
    End Sub
 
    Private Function SetCam() As Boolean
        'Sets all the camera up
        If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, CShort(iDevice), CType(0, String)) = 1 Then
            SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, CShort(CamFrameRate), CType(0, String))
            SendMessage(hHwnd, WM_CAP_SET_PREVIEW, 1, CType(0, String))
            Me.iRunning = True
            Return True
        Else
            Me.iRunning = False
            Return False
        End If
    End Function
 
    Public Function CloseCam() As Boolean
        'Closes the camera
        If Me.iRunning Then
            CloseCam = CBool(SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, 0, CType(0, String)))
            Me.iRunning = False
        End If
    End Function
 
    Public Function CopyFrame(src As PictureBox, rect As RectangleF) As Bitmap
        If iRunning Then
            Using srcPic As Graphics = src.CreateGraphics
                Using srcBmp As New Bitmap(src.Width, src.Height, srcPic)
                    Using srcMem As Graphics = Graphics.FromImage(srcBmp)
 
                        Dim HDC1 As IntPtr = srcPic.GetHdc
                        Dim HDC2 As IntPtr = srcMem.GetHdc
                        BitBlt(HDC2, 0, 0, CInt(rect.Width), CInt(rect.Height), HDC1, CInt(rect.X), CInt(rect.Y), 13369376)
 
                        Return CType(srcBmp.Clone(), Bitmap)
 
                        'Clean Up 
                        srcPic.ReleaseHdc(HDC1)
                        srcMem.ReleaseHdc(HDC2)
                    End Using
                End Using
            End Using
        Else
            MessageBox.Show("Camera Is Not Running!")
        End If
        Return Nothing
    End Function
 
    Public Function FPS() As Integer
        Return CInt(1000 / (CamFrameRate))
    End Function
End Class