Private Sub Grid_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
                           ByVal X As Single, ByVal Y As Single)
    Dim nr As Long, nc As Long      'при каждом движении мыши вычисляется № строки и столбца
    Static r As Long, c As Long     'эти №№ изменяются при переходе границы ячейки
    nr = Grid.MouseRow:    nc = Grid.MouseCol    ' get coordinates
    If nr < 1 Or nc = -1 Then Exit Sub
    If c <> nc Or r <> nr Then                   ' update tooltip text
        Label1 = Grid.Cell(flexcpData, nr, nc)
        r = nr:            c = nc
        DoEvents
    End If
End Sub