Pivot Grid double click to see detail

Solved!

  Private Sub radPivotGrid1_MouseDoubleClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles RadPivotGrid1.DoubleClick
        If e.Button = MouseButtons.Left Then
            Dim pivotGrid As RadPivotGrid = CType(sender, RadPivotGrid)
            Dim cell As PivotCellElement = TryCast(pivotGrid.ElementTree.GetElementAtPoint(e.Location), PivotCellElement)

            If cell IsNot Nothing Then
                Dim row = cell.Row.Group
                Dim column = cell.Column.Group
                Dim localProvider As LocalDataSourceProvider = TryCast(pivotGrid.DataProvider, LocalDataSourceProvider)
                localProvider.GetUnderlyingData(row, column)
            End If
        End If
        Me.SplitContainer2.Panel2Collapsed = True
        MMostrarDetalleToolStripMenuItem_Click(Nothing, Nothing)
        Me.RadGridView1.BestFitColumns()

    End Sub

    Private Sub provider_GetUnderlyingDataCompleted(ByVal sender As Object, ByVal e As Telerik.Pivot.Core.DrillDown.DrillDownCompletedEventArgs)
        Dim underlyingData As IEnumerable = e.Result
        Me.RadGridView1.BeginInvoke(New Action(Function()

                                                   If e.InnerExceptions.Count = 0 Then
                                                       DisplayUnderlyingData(underlyingData)

                                                   End If
                                               End Function))
    End Sub

    Public Sub DisplayUnderlyingData(ByVal underlyingData As IEnumerable)
        Dim counter As Integer = 0
        Dim dt As DataTable = New DataTable()

        For Each row As DataRow In underlyingData
            If counter = 0 Then dt = row.Table.Clone()
            dt.Rows.Add(row.ItemArray.ToArray())
            counter += 1
        Next

        Me.radGridView1.DataSource = dt

    End Sub