[BUG] HitTest differs between 13.4.2 &13.2.1

Option Explicit

Private Type POINTAPI
   x As Long
   y As Long
End Type

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long

Private Sub Form_Load()
   With Me.ReportControl1
      .Columns.Add .Columns.Count, "Test", 100, True
      
      Dim i As Long
      
      For i = 0 To 3
      With .Records.Add
         With .AddItem("A")
         End With
      End With
      Next i
      
      .Populate
   End With
End Sub

Private Sub ReportControl1_MouseDown(Button As Integer, Shift As Integer, x As Long, y As Long)
   Dim lo_Ht As ReportHitTestInfo
   Dim l_Ht As XTPReportHitTestInfoCode
   
   Set lo_Ht = Me.ReportControl1.HitTest(x, y)
   If lo_Ht Is Nothing Then
      Exit Sub
   End If
   
   l_Ht = TranslateHitTestInfoCode(lo_Ht)
   Debug.Print l_Ht = xtpHitTestReportArea
End Sub

Private Function TranslateHitTestInfoCode(po_Ht As ReportHitTestInfo) As XTPReportHitTestInfoCode
   TranslateHitTestInfoCode = po_Ht.ht

   If po_Ht.ht = xtpHitTestUnknown Then
      Dim lt_Pt As POINTAPI
      
      GetCursorPos lt_Pt
      ScreenToClient Me.ReportControl1.hwnd, lt_Pt
      
      lt_Pt.x = Me.ScaleX(lt_Pt.x, vbPixels, IIf(Me.ScaleMode = vbUser, vbPixels, Me.ScaleMode))
      lt_Pt.y = Me.ScaleX(lt_Pt.y, vbPixels, IIf(Me.ScaleMode = vbUser, vbPixels, Me.ScaleMode))
      
      Debug.Print lt_Pt.x, lt_Pt.y, Me.ReportControl1.Width, Me.ReportControl1.Height
      
      If lt_Pt.x >= 0 And lt_Pt.x <= Me.ReportControl1.Width Then
         If lt_Pt.y >= 0 And lt_Pt.y <= Me.ReportControl1.Height Then
            TranslateHitTestInfoCode = xtpHitTestReportArea
         End If
      End If
   End If
End Function