Private Sub dgvZeile_CellMouseMove(sender As Object, e As _ _
  System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles _
  dgvZeile.CellMouseMove
 
 Static eRow As Integer
 Select Case e.ColumnIndex
 Case 12, 13
   If dgvZeile.Rows(e.RowIndex).Cells("ftip").ToString = "" Then
      dgvZeile.ShowCellToolTips = False
   Else
     if e.RowIndex <> eRow Then
       eRow = e.RowIndex
       dgvZeile.ShowCellToolTips = true
 
       Dim ToolTipText As String = dgvZeile.Rows(e.RowIndex).Cells( _
         "ftip").Value.ToString
 
       Dim ToolTip As New ToolTip With {.ToolTipIcon = ToolTipIcon.Info,
                                          .ToolTipTitle = "Feld-Information", 
                                          .UseFading = True, .UseAnimation = _
                                            False}
 
       ToolTip1.SetToolTip(dgvZeile.Rows(e.RowIndex).Cells( _
         e.ColumnIndex).DataGridView, ToolTipText)
 
        'wenn ich diese Zeile entfenen, funktioniert der gesamte Tooltip nicht 
        ' mehr
       dgvZeile.Rows(e.RowIndex).Cells(e.ColumnIndex).ToolTipText = ToolTipText 
     End if
  End Select
End Sub