Task Panes code won't work in 2010

    Public ShowTaskPane1 As Boolean
    Public ShowTaskPane2 As Boolean
    Public ShowTaskPane3 As Boolean

    Private Sub ADXExcelTaskPane#_ADXBeforeTaskPaneShow(ByVal sender As Object, ByVal e As ADXBeforeTaskPaneShowEventArgs) Handles MyBase.ADXBeforeTaskPaneShow
        Visible = ShowTaskPane#
    End Sub

    Private Sub ADXExcelTaskPane#_Load(sender As Object, e As EventArgs) Handles Me.Load
        Width = 330
        If Not Active Then
            Activate()
        End If
    End Sub

    Public Sub ToggleTaskPaneVisibility(ByVal item As Integer, ByVal status As Boolean)
        'Since the property Visible setting is assigned to an event it is handled via global variable
        Try
            Select Case item
                Case 1
                    Dim taskPane As ADXExcelTaskPane1 = TryCast(Me.AdxExcelTaskPanesCollectionItem1.TaskPaneInstance, ADXExcelTaskPane1)
                    If taskPane Is Nothing Then
                        taskPane = AdxExcelTaskPanesCollectionItem1.CreateTaskPaneInstance()
                    End If
                    If taskPane IsNot Nothing Then
                        ShowTaskPane1 = status
                        taskPane.Visible = status
                    End If
                Case 2
                    Dim taskPane As ADXExcelTaskPane2 = TryCast(Me.AdxExcelTaskPanesCollectionItem2.TaskPaneInstance, ADXExcelTaskPane2)
                    If taskPane Is Nothing Then
                        taskPane = AdxExcelTaskPanesCollectionItem2.CreateTaskPaneInstance()
                    End If
                    If taskPane IsNot Nothing Then
                        ShowTaskPane2 = status
                        taskPane.Visible = status
                    End If
                Case 3
                    Dim taskPane As ADXExcelTaskPane3 = TryCast(Me.AdxExcelTaskPanesCollectionItem3.TaskPaneInstance, ADXExcelTaskPane3)
                    If taskPane Is Nothing Then
                        taskPane = AdxExcelTaskPanesCollectionItem3.CreateTaskPaneInstance()
                    End If
                    If taskPane IsNot Nothing Then
                        ShowTaskPane3 = status
                        taskPane.Visible = status
                    End If
                Case Else
            End Select
        Catch ex As NullReferenceException

        End Try
    End Sub

    Public Function GetTaskPane1() As ADXExcelTaskPane1
        Return TryCast(Me.AdxExcelTaskPanesCollectionItem1.TaskPaneInstance, ADXExcelTaskPane1)
    End Function

    Public Function GetTaskPane2() As ADXExcelTaskPane2
        Return TryCast(Me.AdxExcelTaskPanesCollectionItem2.TaskPaneInstance, ADXExcelTaskPane2)
    End Function

    Public Function GetTaskPane3() As ADXExcelTaskPane3
        Return TryCast(Me.AdxExcelTaskPanesCollectionItem3.TaskPaneInstance, ADXExcelTaskPane3)
    End Function

    'Show ADXExcelTaskPane1 from a ribbon button
    Private Sub AdxRibbonButton1_OnClick(sender As Object, control As IRibbonControl, pressed As Boolean) Handles AdxRibbonButton1.OnClick
        Call ToggleTaskPaneVisibility(item:=1, status:=True)
    End Sub

    Private Sub OcbView11_V1BtnNextClick(sender As Object, e As EventArgs) Handles OcbView11.V1BtnNextClick
        'Show TreeView pane
        Dim taskPane2 As ADXExcelTaskPane2 = AddinModule.GetTaskPane2
        If taskPane2 IsNot Nothing Then
            AddinModule.ToggleTaskPaneVisibility(item:=2, status:=True)
            If Not taskPane2.Active Then
                taskPane2.Activate()
            End If
        End If
        'Show DataGridView pane
        Dim taskPane3 As ADXExcelTaskPane3 = AddinModule.GetTaskPane3
        If taskPane3 IsNot Nothing Then
            AddinModule.ToggleTaskPaneVisibility(item:=3, status:=True)
            If Not taskPane3.Active Then
                taskPane3.Activate()
            End If
        End If
    End Sub