Codigo Limpiar Objetos

[Tapia]

Hola a todos les envio un codigo para limpiar Todos los objetos que necesitemos

Ojala Les Sirva

Saludos a Todos

Sub Limpiar()
Dim i, x As Integer
If HasControls() Then
For i = 0 To Controls.Count - 1
For x = 1 To Controls(i).Controls.Count - 1
If TypeOf Controls(i).Controls(x) Is TextBox Then
CType(Controls(i).Controls(x), TextBox).Text = ""
End If

If TypeOf Controls(i).Controls(x) Is Label Then
CType(Controls(i).Controls(x), Label).Text = ""
End If
Next x
Next i
End If
End Sub