Limpiar cajas de texto

No te estoy entendiendo... xform es el nombre del formulario dentro del
cual
se encuentra los text que quiero limpiar ...
AHORA EL ERROR ME DA EN LA
llamada al procedimiento LimpiaCajas
o sea, desde un form llamo al procedimiento así:
LimpiaCajas(Me)

el error es:
D:\Sistemas .NET\SistemaMedico\SistemaMedico\Pacientes.vb(570): Un valor
de
tipo 'SistemaMedico.Pacientes' no se puede convertir en '2'.


"Imac_man" escribió en el mensaje
news:

a XFORM debes declrarlo como la coleccion de objetos que pertenecen al
formulario.

saludos

"Hugo Gsell" escribió en el mensaje
news:
> 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!
>>
>>
>
>