With Me.sevAsGrid
 
    .Clear True
    For i = 1 To .Icons.Count
        'Immer das erste Objekt löschen, nicht den Index 
        .Icons.Remove 1
    Next i
 
    .Icons.Add Me.imgAsGrid(0).Picture, "STATE_NEW"
    .Icons.Add Me.imgAsGrid(1).Picture, "STATE_RUN"
    .Icons.Add Me.imgAsGrid(2).Picture, "STATE_END"
 
End With