Public Event NewFrame As EventHandler
        Public Event Alarm As EventHandler

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

 If (motionDetecotor.MotionLevel >= alarmLevel) AndAlso (Alarm IsNot _
   Nothing) Then
                        RaiseEvent Alarm(Me, New EventArgs())
                    End If