IsMouseInCurrentCell()

Private Function IsMouseInCurrentCell() As Boolean
  Dim PTMouse As POINTAPI
  Dim NRCTCell As NEWRECT
  Dim RCTCell As RECT

  GetCursorPos PTMouse
  ScreenToClient Me.hWnd, PTMouse

  NRCTCell.Left = (Me.fgNumbers.CellLeft + Me.fgNumbers.Left) \ asScreenTwipsPerPixelX()
  NRCTCell.Width = (Me.fgNumbers.CellWidth + Me.fgNumbers.Left) \ asScreenTwipsPerPixelX()
  NRCTCell.Top = (Me.fgNumbers.CellTop + Me.fgNumbers.Top) \ asScreenTwipsPerPixelY()
  NRCTCell.Height = (Me.fgNumbers.CellHeight + Me.fgNumbers.Top) \ asScreenTwipsPerPixelY()

  asNewRectToRect NRCTCell, RCTCell

  IsMouseInCurrentCell = CBool(PtInRect(RCTCell, PTMouse.X, PTMouse.Y) <> C_FALSE)
End Function