What's wrong with this? "a module is not a valid type" ERROR (RESOLVED)

[brandoom]

I get an "a module is not a valid type" error when I try to compile this code. Can I not pass a label to a function?

Private Function SetLabel(CT As String, lbl As Label)
    lbl.Tag = CT
End Function

[Spajeoly]

Don't use Private Function, just use Function.

[brandoom]

That doesn't work.

I've tried

Private Sub
Public Sub
Private Function
Public Function
Function
Sub

FYI, the procedure is in a forms code and I get the same error if I move the function to a module.

Any other ideas?

[BuggyProgrammer]

Change lbl As Label to Byval lbl As Label

[brandoom]

ByVal or ByRef don't matter, I still get that error.

I can put that function into it's own project and it works fine though.

[brandoom]

If I change the "lbl as Label" to: "lbl as Control" it works fine. I still can't figure out what is wrong with passing it as a Label.