'............................          
          Dim oItem As sevDataGrid2.ListItem
          Dim oImage As ListImage
          Dim oIcons As New sevIconLibrary.IconLibrary
 
          ' DLL initialisieren
20        oIcons.Init "...."
 
30        With frm_start.sevGrid_Tipps
              ' autom. Neuzeichnen ausschalten
40            .Clear True
50            .LockUpdate True
60            .RowHeight = 20
'..............................................

Gru? TommyK