Recibir FORM como parámetro?, se puede?

==Estoy tratando de hacer la siguiente función, que está en un módulo ==llamado "mTools":

Public Sub kindOfControls(vForm As Form) 'Para el tipo de control:
Dim vCtl As Control

For Each vCtl In vForm.Controls
Dim vMsg As String

vMsg = "Nombre: " & vCtl.Name + vbCr
vMsg = vMsg + "ControlType: " & vCtl.ControlType + vbCr
vMsg = vMsg + "¿Desea salir?..."

If MsgBox(vMsg, vbInformation + vbYesNo, "...") = vbYes Then
Exit For
End If
Next vCtl
End Sub

==Y la llamo de la siguiente forma:

mTools.kindOfControls (Me)

==Pero me manda error en diferencia de tipos, ¿alguien me puede ayudar con esto?