Private Sub Grid1_OnImageClick(...)
  ' statt
  ' Grid1.DeleteRow
  ' jetzt Formular-Timer starten
  Me.Tag = "Delete"
  Me.TimerInterval = 50
End Sub

Private Form_Timer()
  Me.TimerInterval = 0
  Select Case Me.Tag
    Case "Delete"
      Grid1.DeleteRow
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de