EMGU Picturebox Parameter is not valid

See more:

VB

Hi,
I am having an issue that I don’t understand with EMGU and a picturebox.
My program shows the live capture in a picturebox from local devices eg. Webcam and Camcorder.
When I connect to a webcam it works without problems, but when I connect to my DV Camera (connected thru Firewire) I works for some seconds and then picturebox throws an error.

In advance thank you for your help.

Imports Emgu.CV
Imports Emgu.CV.Structure
Imports Emgu.Util
Imports Emgu.CV.Util
Imports Emgu.CV.UI

Imports System.Threading
Imports DirectShowLib

Public Class Form1
    Private _cameraThread0 As Thread
    Private _cameraThread1 As Thread
    Private _cameraThread2 As Thread


    Dim Capture0 As Capture ' = New Capture(0)
    Dim Capture1 As Capture ' = New Capture(0)
    Dim Capture2 As Capture ' = New Capture(0)
    Dim Image0 As Image(Of Bgr, Byte)
    Dim Image1 As Image(Of Bgr, Byte)
    Dim Image2 As Image(Of Bgr, Byte)
    Dim cboIndex1 As Integer = -1
    Dim cboIndex2 As Integer = -1
    Dim cboIndex3 As Integer = -1

    ' List all WebCams by name
    Private _CameraIndex As Integer
    '-> Create a List to store for ComboCameras
    Dim ListCamerasData As New List(Of KeyValuePair(Of Integer, String))()

    '-> Find systems cameras with DirectShow.Net dll 
    Dim _SystemCamereas As DsDevice() = DsDevice.GetDevicesOfCat(FilterCategory.VideoInputDevice)


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Image0 = Capture0.RetrieveBgrFrame
        ' Image1 = Capture1.RetrieveBgrFrame
        'Image2 = Capture2.RetrieveBgrFrame
        'pic1.Image = Image0.ToBitmap()
        If Capture0 IsNot Nothing Then
            Panel1.BackgroundImage = Image0.ToBitmap
        End If

        'pic2.Image = Image1.ToBitmap()
        'pic3.Image = Image2.ToBitmap()
    End Sub


    Private Sub cboWebCams1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cboWebCams1.SelectedIndexChanged
        cboIndex1 = cboWebCams1.SelectedIndex
        Capture0 = New Capture(cboIndex1)
    End Sub