public sub ChangeColWidth(TheGrid as DataGrid, ColNo as Integer, NewWidth as integer)
'Declare a Column object
Dim TheCol as Column
'Now set it to be the column on the grid we are looking for...
Set TheCol = TheGrid.columns(ColNo - 1)
'Now resize the column
TheCol.Width = NewWidth
'And finally deallocate the reference.
set TheCol = Nothing
end sub