ThisFar = 0
With ThisForm.Grid1
for x = 1 to i
ThisFar = ThisFar + .Columns[x].Width
endFor
EndWith
*WAIT WINDOW str(x) + str(ThisForm.Grid1.Columns[x].Width) + str(ThisFar)