Private hitRow As Integer
Private toolTip1 As System.Windows.Forms.ToolTip
Private Sub dataGrid1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles dataGrid1.MouseMove
Try
Dim hti As DataGrid.HitTestInfo = Me.dataGrid1.HitTest(New Point(e.X, e.Y))
Dim bmb As BindingManagerBase = Me.BindingContext(Me.dataGrid1.DataSource, Me.dataGrid1.DataMember)
If hti.Row < bmb.Count AndAlso hti.Type = DataGrid.HitTestType.Cell AndAlso hti.Row <> hitRow Then
If Not (Me.toolTip1 Is Nothing) AndAlso Me.toolTip1.Active Then
Me.toolTip1.Active = False
End If
End If
Dim tipText As String = ""
tipText = Me.dataGrid1(hti.Row, hti.Column).ToString()
If tipText <> "" Then
hitRow = hti.Row
Me.toolTip1.SetToolTip(Me.dataGrid1, tipText)
Me.toolTip1.Active = True
Else
hitRow = -1
End If
Catch
End Try
End Sub