Select cell using right click

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 HitTest.TimePartValid Then
        HitTest.ViewDay.View.Selection.Begin = HitTest.HitDateTime
        HitTest.ViewDay.View.Selection.End = HitTest.HitDateTime
        CalendarControl.RedrawControl
        
        Exit Sub
    End If

...