here is my code
Private Sub Grid_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Grid.MouseRow <> RowActual Then
ChangeGridColor RowActual, 0
RowActual = Grid.MouseRow
HiRow = Grid.MouseRow
ChangeGridColor RowActual, 1
Text1 = "I'm...