Private Sub SubClass1_WndMessage(hwnd As Long, msg As Long, wp As Long, lp As Long, retval As Long, nodef As Integer)
  CONST WM_NOTIFY = &H4E
  CONST WM_PARENTNOTIFY = &H210
  Select Case msg
  Case WM_NOTIFY
    if lp = 1568236 then
      If SubClass1.Tag = "CANCEL" Then

       ' This cancels this message
        nodef = True
        retval = 1
      End If
      SubClass1.Tag = ""
    End if
  Case WM_PARENTNOTIFY
    Dim RptInfo As ReportHitTestInfo
    Set RptInfo = wndReportControl.HitTest(LowWord(lp), HighWord(lp))
    If RptInfo.ht = xtpHitTestReportArea Then
      SubClass1.Tag = ""
      'If Conditions are met then SubClass1.Tag = "CANCEL"
    End If
  End Select
End Sub

Function HighWord%(DWord&)
  HighWord% = (DWord And &HFFFF0000) \ &H10000
End Function

Function LowWord%(DWord&)
  If DWord And &H8000& Then ' &H8000& = &H00008000
    LowWord% = DWord Or &HFFFF0000
  Else
    LowWord% = DWord And &HFFFF&
  End If
End Function