RealProducer ActiveX Control

Hello,

I'm trying to make an application using the RealProducer active x control and VB6. The problem I'm having is I can't get any of the events to work that require parameters. I'm specifically trying to get the Onencodingprogresschanged event to work.

Here is the what I know about it
OnEncodingProgressChanged()
Fired when the progress of the encoding changes.

Parameters: Duration (Long), PercentDone (Long), Timestamp (Long), AudioLevel (Long)

So here is what I tried.
private sub real_onencodingprogresschanged(Duration as long, percentdone as long, timestamp as long, audiolevel as long)

some code

End sub

when I try this i keep getting the error message that
"Procedure declaration does not match description of event or procedure having the same name" when trying to compile

Does anyone know what I'm doing wrong?

Thanks Karl