Private Sub Grid1_StartAddNew(...)
  Me.Timer1.Interval = 100
  Me.Timer1.Enabled = True
End Sub
 
Private Sub Grid1_AfterAddNew()
  Me.Timer1.Enabled = False
End Sub
 
Private Sub Grid1_CancelAddNew()
  Me.Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
  Static lastCol As Long
 
  With Grid1
    If .IsEditMode <> MODE_NONE Then
      If lastCol <> .Col Then 
        lastCol = .Col
 
        ' hier jetzt - je nach .Col - Eigenschaft den Statustext anzeigen
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de