Limpiar cajas de texto

En .NET Leonardo me respondio (ver abajo)
estoy utilizo para limpiar los text de un form
Private Sub LimpiaCajas(ByVal xForm As Form)
Dim Ctrl As Control
For Each Ctrl In xForm
If TypeOf Ctrl Is TextBox Then
Ctrl.Text = ""
End If
Next
End Sub

ME DA EL ERROR
EN LA LINEA For Each Ctrl In xForm ESPECIFICAMENTE EN LA PALABRA XFORM

D:\Sistemas .NET\SistemaMedico\SistemaMedico\Pacientes.vb(589): La
expresión
es del tipo 'System.Windows.Forms.Form', que no es un tipo de colección.

como puedo solucionarlo?


Hugo A. Gsell
Sgo del Estero
Argentina




"Leonardo Azpurua [mvp vb]" <l e o n a r d o (arroba) m v p s (punto) o r
g>
escribió en el mensaje news:

"Hugo Gsell" escribió en el mensaje
news:
> Hola.. en el viejo vb6 tenia una clase que hacía lo siguiente
> limpiaba los text de un formulario como ahgo para pasar estoa .net?
>
> Public Sub LimpiaCajasText(xForm As Form)
> Dim Ctrl As Control
> For Each Ctrl In xForm
> If TypeOf Ctrl Is TextBox Then
> Ctrl.Text = "" Then
> End If
> Next
> End Sub

Hola, Hugo:

Es exactamente igual, salvo que
TypeOf Ctrl Is TextBox
puede ser reemplazado por
Ctrl.GetType.Name = "TextBox"

Ademas de que debe haber al menos tres maneras mas de hacer lo mismo.


Salud!