Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

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 Declare Function PtInRect Lib "user32.dll" (ByRef lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long

Private Function MouseInHeader() As Boolean
   Dim lt_Pt As POINTAPI
   Dim lt_Rect As RECT
   Dim l_Left As Long, l_Top As Long, l_Right As Long, l_Bottom As Long
   Dim l_Left2 As Long, l_Top2 As Long, l_Right2 As Long, l_Bottom2 As Long
   Dim i As Long
   
   If Me.ReportControl1.HeaderRecords.Count = 0 Then
      Exit Function
   End If
      
   GetCursorPos lt_Pt
   ScreenToClient Me.ReportControl1.hwnd, lt_Pt
   
   With Me.ReportControl1.HeaderRows
      .Row(0).GetRect l_Left, l_Top, l_Right, l_Bottom
      .Row(.Count - 1).GetRect l_Left2, l_Top2, l_Right2, l_Bottom2
   End With
   
   With lt_Rect
      .Left = l_Left
      .Top = l_Top
      .Right = l_Right
      .Bottom = l_Bottom2
   End With

   MouseInHeader = PtInRect(lt_Rect, lt_Pt.x, lt_Pt.y)
End Function