I think the control you need is the MS Flexi grid.
no but close
Private Sub UserControl_Initialize()
INIDIR = App.Path
Call Read_Registry
'! Variable written only: LHeader
Dim LHeader As Variant
' when the Form is loaded, the following code sets the '
' headers and width of the columns of the ListView control '
Set ListView1.Icons = ImageList1
Set LHeader = ListView1.ColumnHeaders.Add(1, , "Seq", 500)
Set LHeader = ListView1.ColumnHeaders.Add(2, , "Peek", 550)
Set LHeader = ListView1.ColumnHeaders.Add(3, , "Year", 550)
Set LHeader = ListView1.ColumnHeaders.Add(4, , "Song Name", 2725)
Set LHeader = ListView1.ColumnHeaders.Add(5, , "Artist Name", 2700)
Set LHeader = ListView1.ColumnHeaders.Add(6, , "From Chart", 1000)
ListView1.View = lvwReport
' SSTab1.Caption = "Chart Grabber, Ver: " & App.Major & "." & App.Minor & "." & App.Revision
End Sub