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