limpiar frame

[davchi]

hola a todos
tengo 5 frame
Frame1
Frame2
Frame3
Frame4
Frame5

y una funcion para borrar el frame que la llamo mediente un checkbox

Function:

Código:

Public Sub Limpiar(sFORM As Frame)
Dim ctl As Object
For Each ctl In Me.Controls
If TypeOf ctl Is CheckBox Then
ctl.Value = False
ElseIf TypeOf ctl Is OptionButton Then
ctl.Value = False
ElseIf TypeOf ctl Is TextBox Then
ctl.Text = ""
End If
Next
End Sub

el problema es que lo lo llamo de la siguiente manera
Call Limpiar(Frame1)
o
Call Limpiar(Frame2)
o
Call Limpiar(Frame3)
o
Call Limpiar(Frame4)
o
Call Limpiar(Frame5)

pero el problema es que si llamo al (Frame4) me limpia todos, y yo necesito limpiar solo el (frame4) o el que llame

alguna idea

muchas gracias

[Kruzado]

Public Sub Limpiar(sFORM As Frame)
Dim ctl As Object
For Each ctl In Me.Controls
me.controls??, eso no te toma todos los controles en el formulario donde estas??? , do deberia ser sFORM.Controls???