How should I declare this Private Sub?

[Johan Christensson]

Hi.

I', quite new to COM Add-ins, but I'm working on one for Outlook 2000. The
create a button on the ActiveExplorer toolbar Standard, and what a few thing
to happen when the button is pressed.

But, when I try to compile the .dll file, i recive the following error:
"Procedure declaration does not match description of events or procedure
having the same name"

How do I find/figure out how I declare this Private Sub in the right way?

------- CODE START------

Private Sub objStartButton_Click(ByVal Application As Object, _
CancelDefault As Boolean, custom() As Variant)

Dim objSelMail As Object
Dim objOrigSub As Object
Dim objModSub As Object
Dim objUserID As Object

Set objHostApp = Application
Set objSelMail = objHostApp.ActiveExplorer.Selection(1)
Set objOrigSub = objSelMail.Subject

objSelMail.Subject = " // " & objOrigSub

objSelMail.FlagStatus = olMarked
objSelMail.FlagStatus = "Follow up"

objSelMail.Save

objSelMail.Display

End Sub

-------- CODE END ------

Best regards,
Johan Christensson