Como llamar una funcion con un control como argumento

[juanes222]

Saludos, tengo la función en un módulo:

Public Function LimpiarForm(Controles As Frame)
Dim c As Control
For Each c In Controles.Container
' Limpiar los textbox
If TypeOf c Is TextBox Then
c.Text = ""
End If
Next
End Function

esta me funciona bien pero cuando la llamo de la forma:

LimpiarForm (Frame1)

me dice que el tipo no corresponde(Type Mismatch) como debo enviar el Frame como argumento para llamar la función para que no me saque el error?
Gracias.

[tazzito]

acabo de hacer la prueba con este codigo y no tuve problema

Function limpiaframe(miFrame As Frame)
miFrame.Caption = ""
For Each c In miFrame.Container
If TypeOf c Is TextBox Then
c.Text = ""
End If
Next
End Function

Private Sub Command1_Click()
Call limpiaframe(Me.Frame1)
End Sub

[juanes222]

Gracias tazzito me ha funcionado perfecto