Access Example - Dbl-Click Error??

New Access Example Crashes when Dbl-Clicking an Event

I had the demo installed and the Access example working - when I uninstalled the Demo and Installed the real Version of the Control - the Access Example generates an error - see code below...

Any help is appreciated

Thanks! - AB




Private Sub CalendarControl1_DblClick()
    Dim HitTest As CalendarHitTestInfo
    Set HitTest = Me.CalendarControl1.ActiveView.HitTest

    If HitTest.ViewEvent Is Nothing Then
        '    mnuNewEvent_Click
      
        g_pEditEvenArgs.setNewEvent Me.CalendarControl1.Object
    Else
        g_pEditEvenArgs.setEditingEvent Me.CalendarControl1.Object, HitTest.ViewEvent.Event
    End If
   
      DoCmd.OpenForm "FrmEditEvent", , , , , acDialog

End Sub