Public Class Form1
    Dim m_caoEng As CaoEngine
    Dim m_caoCtrl As CaoController
    Dim m_caoImg As CaoFile

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        m_caoEng = New CaoEngine
        m_caoCtrl = m_caoEng.Workspaces.Item(0).AddController("OpenCVCtrl", "caoProv.OpenCV", "", "")
        m_caoImg = m_caoCtrl.AddFile("Image", "ID=1")

        Timer1.Enabled = True
    End Sub

    Protected Overrides Sub Finalize()
        m_caoCtrl.Files.Remove(m_caoImg.Index)
        m_caoImg = Nothing
        m_caoEng.Workspaces.Item(0).Controllers.Remove(m_caoCtrl)
        m_caoCtrl = Nothing
        m_caoEng = Nothing
        MyBase.Finalize()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        On Error Resume Next
        AxDWImage1.Value = m_caoImg.Value
    End Sub

    Private Sub cmdChangeID_Click(sender As System.Object, e As System.EventArgs) Handles cmdChangeID.Click
        On Error Resume Next
        m_caoImg.ID = CLng(txtID.Text)
    End Sub
End Class