Private Sub Grid1_StartAddNew()
  With Grid1
    Timer1.Interval = 50
    Timer1.Enabled = True
  End With
End Sub
 
Private Sub Timer1_Timer()
  Timer1.Enabled = False
  With Grid1
    pixEingabe.Move .CellLeft(1), .CellTop(0, 1)
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de