Custom Rendering OWC in VB

[dpouw]

I'm trying to port the following Microsoft HTML OWC example to VB6 o
VBA and could use some help with the syntax.

The HTML example is found at:
http://support.microsoft.com/kb/q290348/

VB isn't happy with the function:
object__AfterRender(drawObject, chartObject)

VB is happy with:
object__AfterRender(ByVal drawObject As ChChartDraw, ByVal chartObjec
As Object)

But VB isn't happy with:
object_BeforeRender(ByVal drawObject As ChChartDraw, ByVal chartObjec
As Object, Cancel As ByRef)

The "As ByRef" isn't valid in VB6 or VBA, and if I substitute wit
anything else I get an error that the function doesn't match the one i
memory with the same name.

Can anyone tell me the proper VB or VBA syntax for this function?

Thank yo