With Grid1
...        
  For lA = 1 To .Cols
    With .Columns(lA)
      .MinWidth = TextWidth(.Caption) * 1.2
    End With
   .DoColumnAutoSize lA
  Next 
...
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de