Tooltip Style is not matched. See the picture

I am not sure if this is a bug.

 

The codes are:

 

    With ReportControl1
        .PaintManager.TextFont.Size = 16
        .ToolTipContext.Style = xtpToolTipOffice2007
        .Columns.Add 0, "Caption", 200, False
        Dim rec As ReportRecord, itm As ReportRecordItem
        Set rec = .Records.Add
        Set itm = rec.AddItem("This is a very long text that is wider than the width of Caption.")
        itm.Tooltip = itm.Caption
        .Populate
    End With

 

if not setting the item tooltiptext manually and when the width of item content is longer than the width,

the tooltip (the yellow one) doesn't match the style (here is set to Office2007)