Passing Form Label As Parameter

Within a module I have about 10 Label_Click events. Since they essentially do the same thing I want to create a another procedure that these 10 label_click events will call.

This is what the click event on Label2 looks like:

Code:
Private Sub Label2_Click()
LabelClick (frm.Label2)
End Sub

As you can tell I am trying to call LabelClick routine, which looks like this:

Code:
Private Sub LabelClick(ByRef lbl As Object)
...{my code here}
End Sub

But when I run it, it throws an error at event level saying "Type mismatch".

I also tried "Label" instead of "Object" in the signature, but I get the same error.