23/05/2005, 07:41
|
| | | Fecha de Ingreso: mayo-2005
Mensajes: 2
Antigüedad: 19 años, 11 meses Puntos: 0 | |
| 'Define esta Subrutina en un Módulo
Public Sub Limpiar(ByVal Frm as Form)
dim x As Integer
for x= 0 to Frm.Controls(x).Count-1
If TypeOf Frm.Controls(x) Is TextBox then
Frm.Controls(x).Text=""
End If
Next x
End Sub
'Para Invocarla desde tu WindowsForm debes hacer:
Limpiar(Me)
'Eso es Todo... Espero que te Sirva. |