Public Class Form1
 
   Private tb As TextBox = Nothing
   Private CurrentColumnIndex As Integer = -1
 
   Private Sub DataGridView1_CellBeginEdit(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles _
     DataGridView1.CellBeginEdit
 
      CurrentColumnIndex = e.ColumnIndex
   End Sub
 
   Private Sub DataGridView1_EditingControlShowing(ByVal sender As  _
     System.Object, ByVal e As  _
     System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles _
     DataGridView1.EditingControlShowing
 
      If CurrentColumnIndex = 0 Then
         tb = DirectCast(e.Control, TextBox)
         AddHandler tb.KeyUp, AddressOf TBKeyUp
      Else
         Try
            RemoveHandler tb.KeyUp, AddressOf TBKeyUp
         Catch : End Try
      End If
   End Sub
 
   Private Sub TBKeyUp(ByVal sender As Object, ByVal e As  _
     System.Windows.Forms.KeyEventArgs)
 
      Me.DataGridView1.CurrentRow.Cells("Column2").Value = _
      tb.Text.Length.ToString
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control