...        
Label1(1).Left = .Left
Label1(1).Width = .Columns(1).Width + .Columns(2).Width + (.GridLineWidth + 4 * _
  .CellSpacing) * Screen.TwipsPerPixelX
 
Label1(2).Left = Label1(1).Left + Label1(1).Width + .GridLineWidth * _
  Screen.TwipsPerPixelX
Label1(2).Width = .Columns(3).Width + .Columns(4).Width + (.GridLineWidth + 4 * _
.CellSpacing) * Screen.TwipsPerPixelX
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de