Private Sub Timer1_Timer()
  Timer1.Enabled = False
  Grid1.AddNew 
End Sub
 
Private Sub Grid1_AfterAddNew()
  Timer1.Interval = 50
  Timer1.Enabled = True
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de