Invalid Procedure Call Office 2007 Theme

When I run the following code, which is straight from the sample project provided for Calendar 10.3.1 I get an error 5 "Invalid Procedure Call"

Private Sub mnuEnableTheme2007_Click()

    Dim objThemeOfice2007 As CalendarThemeOffice2007
    Set objThemeOfice2007 = CalendarControl.Theme
   
    If objThemeOfice2007 Is Nothing Then
        Set objThemeOfice2007 = New CalendarThemeOffice2007
       
'error occurs on the line below
        CalendarControl.SetTheme objThemeOfice2007
                       
        Dim pPX As New PropExchange
        If pPX.CreateAsXML(True, "CalendarThemeOffice2007") Then
            If pPX.LoadFromFile(App.Path & "\cfgCalendarThemeOffice2007.xml") Then
                frmMain.CalendarControl.Theme.DoPropExchange pPX
            End If
        End If
                       
    Else
        Unload frmTheme2007
       
        If mnuCustomIcons.Checked Then
            mnuCustomIcons_Click
        End If
        CalendarControl.SetTheme Nothing
    End If
   
    CalendarControl.Populate
   
End Sub

I was afraid you were going to say that.  You were right.