Private Sub Form_Load()
    With ReportControl
        .BorderStyle = xtpBorderThemedFrame
        .Move 120, 120
        .AllowColumnRemove = False
        .AllowColumnReorder = False
'        .AllowColumnResize = False
        .AllowColumnSort = False
        .AllowEdit = False
        .EnableMarkup = True
        .EditOnClick = False
        .FastDeselectMode = True
        .FocusSubItems = True
        .FullColumnScrolling = True
        .HeaderRowsAllowEdit = False
        .InitialSelectionEnable = True
        .MultipleSelection = False
        .RightToLeft = False
        .SelectionEnable = True
        .ShowHeader = True
        .ShowHeaderRows = False
        .ShowRowFocus = False
        .SetCustomDraw xtpCustomDrawItem
        With .PaintManager
            .ShowNonActiveInPlaceButton = False
            .ColumnStyle = xtpColumnShaded
            ' Excel 2007 colors
            .CaptionBackGradientColorLight = RGB(&HF9, &HFC, &HFD)
            .CaptionBackGradientColorDark = RGB(&HD3, &HDB, &HE9)
            .GridLineColor = RGB(&HD0, &HD7, &HE5)
            '
            .VerticalGridStyle = xtpGridSolid
            .ColumnHotGradientColorDark = .CaptionBackGradientColorDark
            .ColumnHotGradientColorLight = .CaptionBackGradientColorLight
            .ColumnPushedGradientColorDark = .ColumnHotGradientColorLight
            .ColumnPushedGradientColorLight = .ColumnHotGradientColorDark
            .InvertColumnOnClick = False
            .FreezeColsDividerStyle = xtpReportFreezeColsDividerHeader
            .FixedRowHeight = False
            .HideSelection = True
            .GrayIfDisable = False
            .ForceDynamicMarkupForCell = True
            ' .CaptionFont = gFontName
            ' .TextFont = gFontName
        End With
        '
        .Redraw
    End With

    With ReportControl
        .AutoColumnSizing = False   ' to resolve bug
        .SelectionEnable = False
        .PaintManager.ShadeSortColumn = True
        .PaintManager.ShadeSortColor = RGB(&HBF, &HDB, &HFF)
        .PaintManager.DrawSortTriangleAlways = False
        .PaintManager.DrawSortTriangleStyle = xtpReportDrawSortTriangleNever    'Doesn't draw sort icon in column
        .StrictBestFit = False
        ' 
        ' Populate RecordControl
        ' for col 0 and 1 set Item.BackColor = ReportControl.PaintManager.CaptionBackColor
        '  
        .Populate
        .FreezeColumnsCount = 2

        ' autosize columns
        For i = .FreezeColumnsCount To .Columns.Count - 1
            .Columns(i).BestFitMode = xtpBestFitModeAllData
            .Columns(i).Resizable = True
            .Columns(i).BestFit
            .Columns(i).Resizable = False
        Next
    End With
End Sub

Private Sub ReportControl_FocusChanging(ByVal NewRow As XtremeReportControl.IReportRow, ... , Cancel As Boolean)
    If Not NewColumn Is Nothing Then
        If NewColumn.Index >= ReportControl.FreezeColumnsCount Then
            ReportControl.SortOrder.DeleteAll
            ReportControl.SortOrder.Add NewColumn
        Else
            Cancel = True
        End If
    End If
End Sub
Private Sub ReportControl_MouseDown(Button As Integer, Shift As Integer, X As Long, Y As Long)
Dim NewColumn As ReportColumn
    
    If ReportControl.HitTest(X, Y).ht = xtpHitTestReportArea Then
        Set NewColumn = ReportControl.HitTest(X, Y).Column
        If NewColumn.Index >= ReportControl.FreezeColumnsCount Then
            ReportControl.SortOrder.DeleteAll
            ReportControl.SortOrder.Add NewColumn
        End If
    End If
    
End Sub