Private Sub gridGroupingControl1_TableControlCellClick(ByVal sender As Object, ByVal e As GridTableControlCellClickEventArgs)
Dim style As GridTableCellStyleInfo = CType(Me.gridGroupingControl1.TableModel(e.Inner.RowIndex, e.Inner.ColIndex), GridTableCellStyleInfo)
Dim table As GridTable = style.TableCellIdentity.Table
Dim column As GridColumnDescriptor = table.GetHeaderColumnDescriptorAt(style.TableCellIdentity.ColIndex)
MessageBox.Show(column.HeaderText)
End Sub