Private Sub btnStartLiveView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartLiveView.Click

    Dim err As Integer = EDS_ERR_OK


    Dim prop As Integer = EdsEvfOutputDevice.kEdsEvfOutputDevice_PC
    Dim proptype As Integer = EDSDKTypes.kEdsPropID_Evf_OutputDevice
    '// Stock the property.'
    Dim wkIntPtr As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(prop))
    Marshal.StructureToPtr(prop, wkIntPtr, False)
    'send property/command to the camera'
    EdsSetPropertyData(model.getCameraObject(), proptype, 0, Marshal.SizeOf(prop), prop)

    Dim stream As IntPtr
    Dim outMemoryRef As IntPtr
    Dim evfImage As IntPtr

    err = EdsCreateMemoryStream(0, stream)

    If err = EDS_ERR_OK Then

        err = EdsCreateImageRef(stream, outMemoryRef) '(stream, evfImage)'

    Else

        Dim str As String = Hex(err)

        MessageBox.Show(str)

    End If

    If err = EDS_ERR_OK Then
        err = EdsDownloadEvfImage(model.getCameraObject(), evfImage)
    Else

        Dim str As String = Hex(err)

        MessageBox.Show("&H" & str & "L") ' Shows &H2CL which = ERR_FILE_FORMAT_NOT_RECOGNIZED'
    End If

    ' Get the Incidental Data of the Image'

    If err = EDS_ERR_OK Then

        Dim zoom As UInt32
        Dim point As IntPtr


        EdsGetPropertyData(outMemoryRef, kEdsPropID_Evf_ZoomPosition, 0, Marshal.SizeOf(zoom), zoom)

        EdsGetPropertyData(outMemoryRef, kEdsPropID_Evf_ZoomPosition, 0, Marshal.SizeOf(point), point)

    Else

        'MessageBox.Show(err.ToString())'

    End If


    Dim buffer(Marshal.SizeOf(stream)) As Byte

    Dim mStream As System.IO.Stream = New System.IO.MemoryStream(Marshal.SizeOf(stream))


    Dim gcTime As GCHandle = GCHandle.Alloc(0, GCHandleType.Pinned)
    Dim pTime As IntPtr = gcTime.AddrOfPinnedObject()
    Marshal.Copy(stream, buffer, 0, Marshal.SizeOf(stream))

    mStream.Write(buffer, 0, Marshal.SizeOf(stream))

    Me.PictureBox1.Image = Image.FromStream(mStream)

    EdsRelease(stream)
End Sub
	
Dim camera as New Camera
camera.EstablishSession()
camera.TakePicture("C:pathtosave.jpg")
camera.StartLiveView(me.LiveViewPictureBox)
camera.StopLiveView()
camera.FlushTransferQueue()
	
Imports CanonCamera.Sdk ' the .vb header file for the EDSDK
Imports System.Runtime.InteropServices
Imports System.Threading
Imports System.Drawing
Imports System.IO


Public Class Camera
    Implements IDisposable

    Private m_cam As IntPtr
    Private m_oeh As EdsObjectEventHandler
    Private m_seh As EdsStateEventHandler
    Private m_peh As EdsPropertyEventHandler

    Private Shared s_instance As Camera = Nothing

    Private m_waitingOnPic As Boolean
    Private m_picOutFile As String

    ' live view
    Private Const LiveViewDelay = 200
    Private Const LiveViewFrameBufferSize = &H80000
    Private m_liveViewThread As Thread
    Private m_liveViewOn As Boolean
    Private m_waitingToStartLiveView As Boolean
    Private m_liveViewPicBox As PictureBox
    Private m_stoppingLiveView As Boolean
    Private m_liveViewFrameBuffer As Byte()
    Private m_liveViewBufferHandle As GCHandle
    Private m_liveViewStreamPtr As IntPtr

    Private Const SleepTimeout = 20000 ' how many milliseconds to wait before giving up
    Private Const SleepAmount = 50 ' how many milliseconds to sleep before doing the event pump

    Private m_transferQueue As Queue(Of TransferItem)

    Public Sub New()
        If s_instance Is Nothing Then
            s_instance = Me
            m_waitingOnPic = False
            m_liveViewOn = False
            m_waitingToStartLiveView = False
            m_liveViewPicBox = Nothing
            m_liveViewThread = Nothing
            m_stoppingLiveView = False
            ReDim m_liveViewFrameBuffer(0)
            m_liveViewBufferHandle = Nothing
            m_liveViewStreamPtr = IntPtr.Zero
            m_transferQueue = New Queue(Of TransferItem)

            CheckError(EdsInitializeSDK())
        Else
            Throw New OnlyOneInstanceAllowedException
        End If
    End Sub

    ''' <summary>
    ''' connect the computer to the camera. must be called before doing anything else.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub EstablishSession()
        Dim camList As IntPtr
        Dim numCams As Integer

        CheckError(EdsGetCameraList(camList))
        CheckError(EdsGetChildCount(camList, numCams))

        If numCams > 1 Then
            CheckError(EdsRelease(camList))
            Throw New TooManyCamerasFoundException
        ElseIf numCams = 0 Then
            CheckError(EdsRelease(camList))
            Throw New NoCameraFoundException
        End If

        'get the only camera
        CheckError(EdsGetChildAtIndex(camList, 0, m_cam))

        'release the camera list data
        CheckError(EdsRelease(camList))

        'open a session
        CheckError(EdsOpenSession(m_cam))

        ' handlers
        m_seh = New EdsStateEventHandler(AddressOf StaticStateEventHandler)
        CheckError(EdsSetCameraStateEventHandler(m_cam, kEdsStateEvent_All, m_seh, New IntPtr(0)))

        m_oeh = New EdsObjectEventHandler(AddressOf StaticObjectEventHandler)
        CheckError(EdsSetObjectEventHandler(m_cam, kEdsObjectEvent_All, m_oeh, New IntPtr(0)))

        m_peh = New EdsPropertyEventHandler(AddressOf StaticPropertyEventHandler)
        CheckError(EdsSetPropertyEventHandler(m_cam, kEdsPropertyEvent_All, m_peh, New IntPtr(0)))

        'set default options
        'save to computer, not memory card
        CheckError(EdsSetPropertyData(m_cam, kEdsPropID_SaveTo, 0, Marshal.SizeOf(GetType(Integer)), CType(EdsSaveTo.kEdsSaveTo_Host, Integer)))

        ' enforce JPEG format
        Dim qs As New StructurePointer(Of UInt32)
        CheckError(EdsGetPropertyData(m_cam, kEdsPropID_ImageQuality, 0, qs.Size, qs.Pointer))
        ' clear the old image type setting and set the new one
        qs.Value = qs.Value And &HFF0FFFFFL Or (EdsImageType.kEdsImageType_Jpeg << 20)
        CheckError(EdsSetPropertyData(m_cam, kEdsPropID_ImageQuality, 0, qs.Size, qs.Value))
    End Sub

    Public Sub Dispose() Implements System.IDisposable.Dispose
        StopLiveView() 'stops it only if it's running

        FlushTransferQueue()

        CheckError(EdsCloseSession(m_cam))
        CheckError(EdsRelease(m_cam))
        CheckError(EdsTerminateSDK())

        s_instance = Nothing
    End Sub

    Private Sub CheckError(ByVal Err As Integer)
        ' throw errors if necessary
        If Err <> EDS_ERR_OK Then Throw New SdkException(Err)
    End Sub

    Private Shared Function StaticObjectEventHandler(ByVal inEvent As Integer, ByVal inRef As IntPtr, ByVal inContext As IntPtr) As Long
        'transfer from static to member
        s_instance.ObjectEventHandler(inEvent, inRef, inContext)
        Return 0
    End Function

    Private Shared Function StaticStateEventHandler(ByVal inEvent As Integer, ByVal inParameter As Integer, ByVal inContext As IntPtr) As Long
        'transfer from static to member
        s_instance.StateEventHandler(inEvent, inParameter, inContext)
        Return 0
    End Function

    Private Shared Function StaticPropertyEventHandler(ByVal inEvent As Integer, ByVal inPropertyID As Integer, ByVal inParam As Integer, ByVal inContext As IntPtr) As Long
        'transfer from static to member
        s_instance.PropertyEventHandler(inEvent, inPropertyID, inParam, inContext)
        Return 0
    End Function


    Private Sub ObjectEventHandler(ByVal inEvent As Integer, ByVal inRef As IntPtr, ByVal inContext As IntPtr)
        Select Case inEvent
            Case kEdsObjectEvent_DirItemRequestTransfer
                ' queue up the transfer request
                Dim transfer As New TransferItem
                transfer.sdkRef = inRef
                transfer.outFile = m_picOutFile
                m_transferQueue.Enqueue(transfer)

                m_waitingOnPic = False ' allow other thread to continue
            Case Else
                Debug.Print(String.Format("ObjectEventHandler: event {0}", inEvent))

        End Select

    End Sub

    Public Sub FlushTransferQueue()
        While m_transferQueue.Count > 0
            ' transfer the image in memory to disk
            Dim transfer As TransferItem = m_transferQueue.Dequeue()
            Dim dirItemInfo As EdsDirectoryItemInfo = Nothing
            Dim outStream As IntPtr

            CheckError(EdsGetDirectoryItemInfo(transfer.sdkRef, dirItemInfo))

            ' This creates the outStream that is used by EdsDownload to actually grab and write out the file.
            CheckError(EdsCreateFileStream(transfer.outFile, EdsFileCreateDisposition.kEdsFileCreateDisposition_CreateAlways, EdsAccess.kEdsAccess_Write, outStream))

            ' do the transfer
            CheckError(EdsDownload(transfer.sdkRef, dirItemInfo.size, outStream))
            CheckError(EdsDownloadComplete(transfer.sdkRef))
            CheckError(EdsRelease(outStream))
        End While
    End Sub

    Private Sub StateEventHandler(ByVal inEvent As Integer, ByVal inParameter As Integer, ByVal inContext As IntPtr)
        Debug.Print(String.Format("stateEventHandler: event {0}, parameter {1}", inEvent, inParameter))
    End Sub

    Private Sub PropertyEventHandler(ByVal inEvent As Integer, ByVal inPropertyID As Integer, ByVal inParam As Integer, ByVal inContext As IntPtr)
        Select Case inPropertyID
            Case kEdsPropID_Evf_OutputDevice
                If m_waitingToStartLiveView Then
                    'start live view thread
                    m_liveViewThread = New Thread(AddressOf UpdateLiveView)
                    m_liveViewThread.Start()

                    'save state
                    m_waitingToStartLiveView = False
                    m_liveViewOn = True
                End If
            Case Else
                Debug.Print("property event handler called, propid = " & inPropertyID)
        End Select

    End Sub

    '''<summary>snap a photo with the camera and write it to outfile</summary> 
    ''' <param name="OutFile">the file to save the picture to</param>
    Public Sub TakePicture(ByVal OutFile As String)
        Dim interuptingLiveView As Boolean = m_liveViewOn
        Dim lvBox As PictureBox = m_liveViewPicBox

        If m_waitingOnPic Or m_waitingToStartLiveView Then
            ' bad programmer. should have disabled user controls
            Throw New CameraIsBusyException
            Exit Sub
        End If

        If interuptingLiveView Then StopLiveView()

        ' set flag indicating we are waiting on a callback call
        m_waitingOnPic = True
        m_picOutFile = OutFile

        ' take a picture with the camera and save it to outfile
        Dim err As Integer = EdsSendCommand(m_cam, EdsCameraCommand.kEdsCameraCommand_TakePicture, 0)

        If err <> EDS_ERR_OK Then
            m_waitingOnPic = False
            CheckError(err)
        End If

        Dim I As Integer
        For I = 0 To SleepTimeout / SleepAmount
            System.Threading.Thread.Sleep(SleepAmount)
            Application.DoEvents()

            If Not m_waitingOnPic Then
                If interuptingLiveView Then StartLiveView(lvBox)
                Exit Sub 'success 
            End If
        Next I

        ' we never got a callback. throw an error
        If interuptingLiveView Then StartLiveView(lvBox)

        m_waitingOnPic = False
        Throw New TakePictureFailedException
    End Sub

    Private Sub StartBulb()
        Dim err As Integer

        CheckError(EdsSendStatusCommand(m_cam, EdsCameraStatusCommand.kEdsCameraStatusCommand_UILock, 0))

        err = EdsSendCommand(m_cam, EdsCameraCommand.kEdsCameraCommand_BulbStart, 0)

        ' call ui unlock if bulbstart fails
        If err <> EDS_ERR_OK Then
            EdsSendStatusCommand(m_cam, EdsCameraStatusCommand.kEdsCameraStatusCommand_UIUnLock, 0)
            CheckError(err)
        End If
    End Sub

    Private Sub StopBulb()
        Dim err As Integer, err2 As Integer

        ' call ui unlock even if bulb end fails
        err = EdsSendCommand(m_cam, EdsCameraCommand.kEdsCameraCommand_BulbEnd, 0)
        err2 = EdsSendCommand(m_cam, EdsCameraStatusCommand.kEdsCameraStatusCommand_UIUnLock, 0)

        CheckError(err)
        CheckError(err2)
    End Sub

    '''<summary>start streaming live video to pbox</summary>
    '''<param name="pbox">the picture box to send live video to</param>
    ''' <remarks>you can only have one live view going at a time.</remarks>
    Public Sub StartLiveView(ByVal pbox As PictureBox)
        While m_stoppingLiveView
            Application.DoEvents()
        End While

        If m_waitingToStartLiveView Then
            m_liveViewPicBox = pbox
            Return
        ElseIf m_liveViewOn Then
            StopLiveView()
        End If

        Dim device As New StructurePointer(Of UInt32)

        ' tell the camera to send live data to the computer
        CheckError(EdsGetPropertyData(m_cam, kEdsPropID_Evf_OutputDevice, 0, device.Size, device.Pointer))
        device.Value = device.Value Or EdsEvfOutputDevice.kEdsEvfOutputDevice_PC
        CheckError(EdsSetPropertyData(m_cam, kEdsPropID_Evf_OutputDevice, 0, device.Size, device.Value))

        ' get ready to stream
        m_liveViewPicBox = pbox
        m_waitingToStartLiveView = True

        ' set up buffer
        ReDim m_liveViewFrameBuffer(LiveViewFrameBufferSize)
        m_liveViewBufferHandle = GCHandle.Alloc(m_liveViewFrameBuffer, GCHandleType.Pinned)
        CheckError(EdsCreateMemoryStreamFromPointer(m_liveViewBufferHandle.AddrOfPinnedObject, LiveViewFrameBufferSize, m_liveViewStreamPtr))

        ' pause this thread until live view starts
        Dim I As Integer
        For I = 0 To SleepTimeout / SleepAmount
            System.Threading.Thread.Sleep(SleepAmount)
            Application.DoEvents()

            If Not m_waitingToStartLiveView Then Exit Sub 'success 
        Next I

        ' we never got a callback. throw an error
        StopLiveView()
        Throw New LiveViewFailedException

    End Sub

    ''' <summary>
    ''' stop streaming live video
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub StopLiveView()
        Dim device As New StructurePointer(Of UInt32)

        If m_stoppingLiveView Or (Not m_waitingToStartLiveView And Not m_liveViewOn) Then Exit Sub

        If m_liveViewOn Then
            ' stop thread
            m_stoppingLiveView = True
            m_liveViewThread.Join()
        End If

        ' save state
        m_liveViewOn = False
        m_waitingToStartLiveView = False
        m_liveViewPicBox = Nothing
        m_stoppingLiveView = False

        ' tell the camera not to send live data to the computer
        CheckError(EdsGetPropertyData(m_cam, kEdsPropID_Evf_OutputDevice, 0, device.Size, device.Pointer))
        device.Value = device.Value And Not EdsEvfOutputDevice.kEdsEvfOutputDevice_PC
        CheckError(EdsSetPropertyData(m_cam, kEdsPropID_Evf_OutputDevice, 0, device.Size, device.Value))

        ' clean up
        CheckError(EdsRelease(m_liveViewStreamPtr))
        m_liveViewBufferHandle.Free()
    End Sub

    Private Sub UpdateLiveView()
        Dim nowPlusInterval As Long

        While Not m_stoppingLiveView
            nowPlusInterval = Now.Ticks + LiveViewDelay
            ShowLiveViewFrame()
            Thread.Sleep(Math.Max(nowPlusInterval - Now.Ticks, 0))
        End While
    End Sub

    Private Sub ShowLiveViewFrame()
        Dim err As Integer = 0
        Dim imagePtr As IntPtr

        ' create image
        CheckError(EdsCreateEvfImageRef(m_liveViewStreamPtr, imagePtr))

        ' download the frame
        Try
            CheckError(EdsDownloadEvfImage(m_cam, imagePtr))
        Catch ex As SdkException When ex.SdkError = SdkErrors.ObjectNotready
            CheckError(EdsRelease(imagePtr))
            Exit Sub
        End Try
        ' get it into the picture box image
        Dim canonImg As Image = Image.FromStream(New MemoryStream(m_liveViewFrameBuffer)) 'do not dispose the MemoryStream (Image.FromStream)
        Dim oldImg As Image = m_liveViewPicBox.Image
        m_liveViewPicBox.Image = canonImg
        If oldImg IsNot Nothing Then oldImg.Dispose() 'really is required.

        ' release image
        CheckError(EdsRelease(imagePtr))

    End Sub

    Protected Overrides Sub Finalize()
        Dispose()
        MyBase.Finalize()
    End Sub


    Private Class StructurePointer(Of T As Structure)
        Implements IDisposable

        Private m_Size As Integer 'in bytes
        Private m_ptr As IntPtr

        Public ReadOnly Property Size() As Integer
            Get
                Return m_Size
            End Get
        End Property

        Public ReadOnly Property Pointer() As IntPtr
            Get
                Return m_ptr
            End Get
        End Property

        Public Property Value() As T
            Get
                Return Marshal.PtrToStructure(m_ptr, GetType(T))
            End Get
            Set(ByVal value As T)
                Marshal.StructureToPtr(value, m_ptr, True)
            End Set
        End Property

        Public Sub New()
            m_Size = Marshal.SizeOf(GetType(T))
            m_ptr = Marshal.AllocHGlobal(m_Size)
        End Sub

        Public Sub Dispose() Implements IDisposable.Dispose
            Marshal.FreeHGlobal(m_ptr)
        End Sub

        Protected Overrides Sub Finalize()
            Dispose()
            MyBase.Finalize()
        End Sub

    End Class

    Private Structure TransferItem
        Public sdkRef As IntPtr
        Public outFile As String
    End Structure

End Class

Public Class SdkException
    Inherits Exception

    Private m_Message As String

    Public ReadOnly Property SdkError() As String
        Get
            Return m_Message
        End Get
    End Property

    Public Sub New(ByVal errCode As Integer)
        m_Message = SdkErrors.StringFromErrorCode(errCode)
    End Sub

    Public Overrides ReadOnly Property Message() As String
        Get
            Return m_Message
        End Get
    End Property
End Class

Public NotInheritable Class SdkErrors
    Private Sub New() 'static class
    End Sub

    Private Shared m_dict As Dictionary(Of Integer, String)

    Public Shared Function StringFromErrorCode(ByVal errCode As Integer) As String
        If m_dict Is Nothing Then initDict()
        If m_dict.ContainsKey(errCode) Then
            Return m_dict.Item(errCode)
        Else
            Return "Error code: " & errCode
        End If
    End Function

#Region "Generated Code"

    Private Shared Sub initDict()
        m_dict = New Dictionary(Of Integer, String)(117)

        ' Miscellaneous errors
        m_dict.Add(EDS_ERR_UNIMPLEMENTED, Unimplemented)
        m_dict.Add(EDS_ERR_INTERNAL_ERROR, InternalError)
        m_dict.Add(EDS_ERR_MEM_ALLOC_FAILED, MemAllocFailed)
        m_dict.Add(EDS_ERR_MEM_FREE_FAILED, MemFreeFailed)
        m_dict.Add(EDS_ERR_OPERATION_CANCELLED, OperationCancelled)
        m_dict.Add(EDS_ERR_INCOMPATIBLE_VERSION, IncompatibleVersion)
        m_dict.Add(EDS_ERR_NOT_SUPPORTED, NotSupported)
        m_dict.Add(EDS_ERR_UNEXPECTED_EXCEPTION, UnexpectedException)
        m_dict.Add(EDS_ERR_PROTECTION_VIOLATION, ProtectionViolation)
        m_dict.Add(EDS_ERR_MISSING_SUBCOMPONENT, MissingSubcomponent)
        m_dict.Add(EDS_ERR_SELECTION_UNAVAILABLE, SelectionUnavailable)

        ' File errors
        m_dict.Add(EDS_ERR_FILE_IO_ERROR, FileIoError)
        m_dict.Add(EDS_ERR_FILE_TOO_MANY_OPEN, FileTooManyOpen)
        m_dict.Add(EDS_ERR_FILE_NOT_FOUND, FileNotFound)
        m_dict.Add(EDS_ERR_FILE_OPEN_ERROR, FileOpenError)
        m_dict.Add(EDS_ERR_FILE_CLOSE_ERROR, FileCloseError)
        m_dict.Add(EDS_ERR_FILE_SEEK_ERROR, FileSeekError)
        m_dict.Add(EDS_ERR_FILE_TELL_ERROR, FileTellError)
        m_dict.Add(EDS_ERR_FILE_READ_ERROR, FileReadError)
        m_dict.Add(EDS_ERR_FILE_WRITE_ERROR, FileWriteError)
        m_dict.Add(EDS_ERR_FILE_PERMISSION_ERROR, FilePermissionError)
        m_dict.Add(EDS_ERR_FILE_DISK_FULL_ERROR, FileDiskFullError)
        m_dict.Add(EDS_ERR_FILE_ALREADY_EXISTS, FileAlreadyExists)
        m_dict.Add(EDS_ERR_FILE_FORMAT_UNRECOGNIZED, FileFormatUnrecognized)
        m_dict.Add(EDS_ERR_FILE_DATA_CORRUPT, FileDataCorrupt)
        m_dict.Add(EDS_ERR_FILE_NAMING_NA, FileNamingNa)

        ' Directory errors
        m_dict.Add(EDS_ERR_DIR_NOT_FOUND, DirNotFound)
        m_dict.Add(EDS_ERR_DIR_IO_ERROR, DirIoError)
        m_dict.Add(EDS_ERR_DIR_ENTRY_NOT_FOUND, DirEntryNotFound)
        m_dict.Add(EDS_ERR_DIR_ENTRY_EXISTS, DirEntryExists)
        m_dict.Add(EDS_ERR_DIR_NOT_EMPTY, DirNotEmpty)

        ' Property errors
        m_dict.Add(EDS_ERR_PROPERTIES_UNAVAILABLE, PropertiesUnavailable)
        m_dict.Add(EDS_ERR_PROPERTIES_MISMATCH, PropertiesMismatch)
        m_dict.Add(EDS_ERR_PROPERTIES_NOT_LOADED, PropertiesNotLoaded)

        ' Function Parameter errors
        m_dict.Add(EDS_ERR_INVALID_PARAMETER, InvalidParameter)
        m_dict.Add(EDS_ERR_INVALID_HANDLE, InvalidHandle)
        m_dict.Add(EDS_ERR_INVALID_POINTER, InvalidPointer)
        m_dict.Add(EDS_ERR_INVALID_INDEX, InvalidIndex)
        m_dict.Add(EDS_ERR_INVALID_LENGTH, InvalidLength)
        m_dict.Add(EDS_ERR_INVALID_FN_POINTER, InvalidFnPointer)
        m_dict.Add(EDS_ERR_INVALID_SORT_FN, InvalidSortFn)

        ' Device errors
        m_dict.Add(EDS_ERR_DEVICE_NOT_FOUND, DeviceNotFound)
        m_dict.Add(EDS_ERR_DEVICE_BUSY, DeviceBusy)
        m_dict.Add(EDS_ERR_DEVICE_INVALID, DeviceInvalid)
        m_dict.Add(EDS_ERR_DEVICE_EMERGENCY, DeviceEmergency)
        m_dict.Add(EDS_ERR_DEVICE_MEMORY_FULL, DeviceMemoryFull)
        m_dict.Add(EDS_ERR_DEVICE_INTERNAL_ERROR, DeviceInternalError)
        m_dict.Add(EDS_ERR_DEVICE_INVALID_PARAMETER, DeviceInvalidParameter)
        m_dict.Add(EDS_ERR_DEVICE_NO_DISK, DeviceNoDisk)
        m_dict.Add(EDS_ERR_DEVICE_DISK_ERROR, DeviceDiskError)
        m_dict.Add(EDS_ERR_DEVICE_CF_GATE_CHANGED, DeviceCfGateChanged)
        m_dict.Add(EDS_ERR_DEVICE_DIAL_CHANGED, DeviceDialChanged)
        m_dict.Add(EDS_ERR_DEVICE_NOT_INSTALLED, DeviceNotInstalled)
        m_dict.Add(EDS_ERR_DEVICE_STAY_AWAKE, DeviceStayAwake)
        m_dict.Add(EDS_ERR_DEVICE_NOT_RELEASED, DeviceNotReleased)

        ' Stream errors
        m_dict.Add(EDS_ERR_STREAM_IO_ERROR, StreamIoError)
        m_dict.Add(EDS_ERR_STREAM_NOT_OPEN, StreamNotOpen)
        m_dict.Add(EDS_ERR_STREAM_ALREADY_OPEN, StreamAlreadyOpen)
        m_dict.Add(EDS_ERR_STREAM_OPEN_ERROR, StreamOpenError)
        m_dict.Add(EDS_ERR_STREAM_CLOSE_ERROR, StreamCloseError)
        m_dict.Add(EDS_ERR_STREAM_SEEK_ERROR, StreamSeekError)
        m_dict.Add(EDS_ERR_STREAM_TELL_ERROR, StreamTellError)
        m_dict.Add(EDS_ERR_STREAM_READ_ERROR, StreamReadError)
        m_dict.Add(EDS_ERR_STREAM_WRITE_ERROR, StreamWriteError)
        m_dict.Add(EDS_ERR_STREAM_PERMISSION_ERROR, StreamPermissionError)
        m_dict.Add(EDS_ERR_STREAM_COULDNT_BEGIN_THREAD, StreamCouldntBeginThread)
        m_dict.Add(EDS_ERR_STREAM_BAD_OPTIONS, StreamBadOptions)
        m_dict.Add(EDS_ERR_STREAM_END_OF_STREAM, StreamEndOfStream)

        ' Communications errors
        m_dict.Add(EDS_ERR_COMM_PORT_IS_IN_USE, CommPortIsInUse)
        m_dict.Add(EDS_ERR_COMM_DISCONNECTED, CommDisconnected)
        m_dict.Add(EDS_ERR_COMM_DEVICE_INCOMPATIBLE, CommDeviceIncompatible)
        m_dict.Add(EDS_ERR_COMM_BUFFER_FULL, CommBufferFull)
        m_dict.Add(EDS_ERR_COMM_USB_BUS_ERR, CommUsbBusErr)

        ' Lock/Unlock
        m_dict.Add(EDS_ERR_USB_DEVICE_LOCK_ERROR, UsbDeviceLockError)
        m_dict.Add(EDS_ERR_USB_DEVICE_UNLOCK_ERROR, UsbDeviceUnlockError)

        ' STI/WIA
        m_dict.Add(EDS_ERR_STI_UNKNOWN_ERROR, StiUnknownError)
        m_dict.Add(EDS_ERR_STI_INTERNAL_ERROR, StiInternalError)
        m_dict.Add(EDS_ERR_STI_DEVICE_CREATE_ERROR, StiDeviceCreateError)
        m_dict.Add(EDS_ERR_STI_DEVICE_RELEASE_ERROR, StiDeviceReleaseError)
        m_dict.Add(EDS_ERR_DEVICE_NOT_LAUNCHED, DeviceNotLaunched)

        m_dict.Add(EDS_ERR_ENUM_NA, EnumNa)
        m_dict.Add(EDS_ERR_INVALID_FN_CALL, InvalidFnCall)
        m_dict.Add(EDS_ERR_HANDLE_NOT_FOUND, HandleNotFound)
        m_dict.Add(EDS_ERR_INVALID_ID, InvalidId)
        m_dict.Add(EDS_ERR_WAIT_TIMEOUT_ERROR, WaitTimeoutError)

        ' PTP
        m_dict.Add(EDS_ERR_SESSION_NOT_OPEN, SessionNotOpen)
        m_dict.Add(EDS_ERR_INVALID_TRANSACTIONID, InvalidTransactionid)
        m_dict.Add(EDS_ERR_INCOMPLETE_TRANSFER, IncompleteTransfer)
        m_dict.Add(EDS_ERR_INVALID_STRAGEID, InvalidStrageid)
        m_dict.Add(EDS_ERR_DEVICEPROP_NOT_SUPPORTED, DevicepropNotSupported)
        m_dict.Add(EDS_ERR_INVALID_OBJECTFORMATCODE, InvalidObjectformatcode)
        m_dict.Add(EDS_ERR_SELF_TEST_FAILED, SelfTestFailed)
        m_dict.Add(EDS_ERR_PARTIAL_DELETION, PartialDeletion)
        m_dict.Add(EDS_ERR_SPECIFICATION_BY_FORMAT_UNSUPPORTED, SpecificationByFormatUnsupported)
        m_dict.Add(EDS_ERR_NO_VALID_OBJECTINFO, NoValidObjectinfo)
        m_dict.Add(EDS_ERR_INVALID_CODE_FORMAT, InvalidCodeFormat)
        m_dict.Add(EDS_ERR_UNKNOWN_VENDER_CODE, UnknownVenderCode)
        m_dict.Add(EDS_ERR_CAPTURE_ALREADY_TERMINATED, CaptureAlreadyTerminated)
        m_dict.Add(EDS_ERR_INVALID_PARENTOBJECT, InvalidParentobject)
        m_dict.Add(EDS_ERR_INVALID_DEVICEPROP_FORMAT, InvalidDevicepropFormat)
        m_dict.Add(EDS_ERR_INVALID_DEVICEPROP_VALUE, InvalidDevicepropValue)
        m_dict.Add(EDS_ERR_SESSION_ALREADY_OPEN, SessionAlreadyOpen)
        m_dict.Add(EDS_ERR_TRANSACTION_CANCELLED, TransactionCancelled)
        m_dict.Add(EDS_ERR_SPECIFICATION_OF_DESTINATION_UNSUPPORTED, SpecificationOfDestinationUnsupported)
        m_dict.Add(EDS_ERR_UNKNOWN_COMMAND, UnknownCommand)
        m_dict.Add(EDS_ERR_OPERATION_REFUSED, OperationRefused)
        m_dict.Add(EDS_ERR_LENS_COVER_CLOSE, LensCoverClose)
        m_dict.Add(EDS_ERR_LOW_BATTERY, LowBattery)
        m_dict.Add(EDS_ERR_OBJECT_NOTREADY, ObjectNotready)

        m_dict.Add(EDS_ERR_TAKE_PICTURE_AF_NG, TakePictureAfNg)
        m_dict.Add(EDS_ERR_TAKE_PICTURE_RESERVED, TakePictureReserved)
        m_dict.Add(EDS_ERR_TAKE_PICTURE_MIRROR_UP_NG, TakePictureMirrorUpNg)
        m_dict.Add(EDS_ERR_TAKE_PICTURE_SENSOR_CLEANING_NG, TakePictureSensorCleaningNg)
        m_dict.Add(EDS_ERR_TAKE_PICTURE_SILENCE_NG, TakePictureSilenceNg)
        m_dict.Add(EDS_ERR_TAKE_PICTURE_NO_CARD_NG, TakePictureNoCardNg)
        m_dict.Add(EDS_ERR_TAKE_PICTURE_CARD_NG, TakePictureCardNg)
        m_dict.Add(EDS_ERR_TAKE_PICTURE_CARD_PROTECT_NG, TakePictureCardProtectNg)

        ' 44313 ???
    End Sub

    ' Miscellaneous errors
    Public Const Unimplemented = "Unimplemented"
    Public Const InternalError = "Internal Error"
    Public Const MemAllocFailed = "Mem Alloc Failed"
    Public Const MemFreeFailed = "Mem Free Failed"
    Public Const OperationCancelled = "Operation Cancelled"
    Public Const IncompatibleVersion = "Incompatible Version"
    Public Const NotSupported = "Not Supported"
    Public Const UnexpectedException = "Unexpected Exception"
    Public Const ProtectionViolation = "Protection Violation"
    Public Const MissingSubcomponent = "Missing Subcomponent"
    Public Const SelectionUnavailable = "Selection Unavailable"

    ' File errors
    Public Const FileIoError = "File IO Error"
    Public Const FileTooManyOpen = "File Too Many Open"
    Public Const FileNotFound = "File Not Found"
    Public Const FileOpenError = "File Open Error"
    Public Const FileCloseError = "File Close Error"
    Public Const FileSeekError = "File Seek Error"
    Public Const FileTellError = "File Tell Error"
    Public Const FileReadError = "File Read Error"
    Public Const FileWriteError = "File Write Error"
    Public Const FilePermissionError = "File Permission Error"
    Public Const FileDiskFullError = "File Disk Full Error"
    Public Const FileAlreadyExists = "File Already Exists"
    Public Const FileFormatUnrecognized = "File Format Unrecognized"
    Public Const FileDataCorrupt = "File Data Corrupt"
    Public Const FileNamingNa = "File Naming NA"

    ' Directory errors
    Public Const DirNotFound = "Dir Not Found"
    Public Const DirIoError = "Dir IO Error"
    Public Const DirEntryNotFound = "Dir Entry Not Found"
    Public Const DirEntryExists = "Dir Entry Exists"
    Public Const DirNotEmpty = "Dir Not Empty"

    ' Property errors