LiteGrid Turbo for VB6, Excel & Access

' 1. Copy the kit's LiteGridTurbo folder (it holds x86\ and x64\) next to
'    your workbook or database.
' 2. Import vba\modLGTRegFree.bas from the kit once per project
'    (VBA editor: File > Import File).
' 3. Edit only these two constants at the top of that module:
Private Const LGT_COMPANY As String = "Your Company"
Private Const LGT_KEY     As String = ""    ' empty = evaluation

' The module gives you:
'   CreateGridIn(hostContainer, baseFolder)  a visible grid over a Frame
'                                            (Excel) or an Option Group (Access)
'   CreateDataGrid(baseFolder)               the full API with no window
'   DestroyGrid(grid)                        optional, deterministic cleanup
' No regsvr32, no COM registration, no administrator rights.

' UserForm code. The form has a Frame named fraGrid.
Private m_grid As Object

Private Sub UserForm_Initialize()
    ' baseFolder = the kit folder you copied next to the workbook
    Set m_grid = CreateGridIn(Me.fraGrid, ThisWorkbook.Path & "\LiteGridTurbo")

    ' Add columns: header text, width in pixels
    m_grid.AddColumn "Employee Name", 200
    m_grid.AddColumn "Department", 150
    m_grid.AddColumn "Annual Salary", 120

    ' Add rows: one array per row, in column order
    m_grid.AddRow Array("John Smith", "Engineering", 95000)
    m_grid.AddRow Array("Jane Doe", "Marketing", 87000)
    m_grid.AddRow Array("Bob Wilson", "Finance", 102000)

    ' Sort by clicking a header; filter from the header buttons
    m_grid.AutoSortOnHeaderClick = True
    m_grid.ShowFilterButtons = True
End Sub

Private Sub UserForm_Terminate()
    DestroyGrid m_grid
    Set m_grid = Nothing
End Sub

' UserForm code, same Frame fraGrid. Sheet1 holds a table in A1:F500
' with the column names in row 1.
Private m_grid As Object

Private Sub UserForm_Initialize()
    Set m_grid = CreateGridIn(Me.fraGrid, ThisWorkbook.Path & "\LiteGridTurbo")

    ' One call loads the range; AutoDetectColumns turns row 1 into the
    ' column headers and types each column from its values
    m_grid.LoadFromRange Sheet1.Range("A1:F500")
    m_grid.AutoDetectColumns True

    ' Colour the Revenue column (column D, index 3) as a heatmap
    m_grid.SetColumnHeatmap 3, True

    ' Draw value bars in the Units column (column E, index 4)
    m_grid.SetColumnDataBar 4, True
End Sub

' UserForm_Terminate: the same as in the previous example

LiteGridTurboLib
  |
  +-- ILiteGridTurboCtrl          (Data grid OCX)
  |     coclass: LiteGridTurboCtrl
  |     33 events via _DLiteGridTurboCtrlEvents
  |
  +-- ILiteGridTurboHelper        (Standalone JSON helper)
        coclass: LiteGridTurboHelper
        18 JSON methods, no grid required