Public Sub Camera(source As VideoSource.IVideoSource, detector As _
   IMotionDetector)
            videoSource = source
            Me.motionDetecotor = detector
            videoSource.NewFrame += New CameraEventHandler(video_NewFrame)
        End Sub

' Public Event NewFrame As EventHandler
Public Event NewFrame(ByVal sender As Object, e As EventArgs)