dim x as integer

x=grd.colwidth(0) + grd.colwidth(1) + grd.colwidth(2) .....
grd.colwidth(5) = grd.width - x - 100  '100 è un valore arbitrario per lasciare giusto un pò di spazio...