Función recursiva para limpiar todas las cajas de texto de un Form

Siempre es necesario limpiar cajas de texto en un form, por ejemplo después de cierta acción queremos dejar todas las cajas de texto vacías... pues qué mejor que tener una función que las busque todas??

Public Sub LimpiarCajas(Controls as System.Windows.Forms.Control.ControlCollection)
 For each c as Control in Controls
  If Not c.Controls Is Nothing AndAlso c.Controls.Count > 0 Then
   LimpiarCajas(c.Controls)
  ElseIf c.GetType().Equals(GetType(TextBox)) Then
   CType(c, TextBox).Text = ""
  End If
 Next
End Sub

Este procedimiento puede ser muy útil si se lo ubica en un módulo público, de manera que pueda ser utilizado desde cualquier parte de nuestra aplicación. Aunque si trabajan con el framework 3.5 pueden utilizar métodos de extensión como explican en Nuevos Programadores.