Datagrid con evento mouseover

[KenMasters]

Encontre luego de una gran busqueda el siguiente codigo funciona a la perfección

Código vb:

Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim RowValue As Long
    Dim intCols As Integer
    Dim strToolTip As String
    Dim fecha2 As Date
    Dim fecha1 As Date
    
    RowValue = DataGrid1.RowContaining(Y)
    
    If RowValue <> -1 Then
        fecha2 = CDate(DataGrid1.Columns(0).CellValue(DataGrid1.RowBookmark(RowValue)))
        strToolTip = "Faltan " & DateDiff("d", Now, fecha2) & " días."
    End If
    DataGrid1.ToolTipText = strToolTip
 
End Sub