With Grid1
 
    ' Recordset zuweisen
    Set .Recordset = oRs
 
    '.Row(1).Align = ALIGN_CENTER
 
    .Columns(1).Width = 1350
    .Columns(2).Width = 950
    .Columns(3).Width = 820
    .Columns(4).Width = 820
    .Columns(5).Width = 820
    .Columns(6).Width = 820
    .Columns(7).Width = 820
    .Columns(8).Width = 820
    .Columns(9).Width = 820
    .Columns(10).Width = 820
    .Columns(11).Width = 820
    .Columns(12).Width = 820
    .Columns(13).Width = 1300
    .Columns(14).Width = 1000
    .Columns(15).Width = 1350
 
    ' zuletzt gespeicherte Spaltenbreiten wiederherstellen
      '.ReadColumnWidth "MyApplication", "Grid1", "ColWidths"
 
 
    .Columns(15).ColType = TYPE_COMBOBOX
    .Columns(13).ColType = TYPE_COMBOBOX
 
 
    For i = 3 To 12
      .Columns(i).InputType = INPUT_TIME
    Next i    
    ...
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de