ContextMenu Hidden for Calendar?

 If I copy (from the Calendar sample)  the following sub to my project I get the message that the variables mnuContexEditEvent, mnuContextTimeScale .. aren't defined.

 

If i try to find the definition in the Calendar sample it says:

Can't jump to 'mnuContexEditEvent' because it is hidden !?

 

Private Sub CalendarControl_ContextMenu(ByVal X As Single, ByVal Y As Single)

    'Debug.Print "On context menu"
   
    Dim HitTest As CalendarHitTestInfo
    Set HitTest = CalendarControl.ActiveView.HitTest
   
    If Not HitTest.ViewEvent Is Nothing Then
        Set ContextEvent = HitTest.ViewEvent.Event
        Me.PopupMenu mnuContexEditEvent
        Set ContextEvent = Nothing
    ElseIf (HitTest.HitCode = xtpCalendarHitTestDayViewTimeScale) Then
        Me.PopupMenu mnuContextTimeScale
    Else
        Me.PopupMenu mnuContextNewEvent
    End If

End Sub

 

What should I do to get those context menus and can they be localized?

 

Thanks!