Private Sub DataGrid1_MouseMove(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseMove
        Dim mouse_col As Integer
        Dim mouse_row As Integer
        mouse_col = Me.DataGrid1.HitTest(e.X, e.Y).Column()
        mouse_row = Me.DataGrid1.HitTest(e.X, e.Y).Row()
        Debug.WriteLine(mouse_col & " " & " " & mouse_row)
        If mouse_col > -1 AndAlso mouse_row > -1 Then  '//AndAlso Not ( 
        ' mouse_row >= Me.DataGrid1.VisibleRowCount - 1)
            Dim o As Object = (Me.DataGrid1.Item(mouse_row, mouse_col))
            If Not o Is System.DBNull.Value Then
                Debug.WriteLine(o.ToString)
            End If
        End If
    End Sub