Procedimiento de borrado de examen

vichovi
29 de Septiembre del 2004
Hola a [email protected]:

Tengo el siguiente problema con el procedimiento que utilizo para limpiar los formularios de forma automatica sin preocuparme de que controles contiene, y que es el que sigue:

Public Sub LimpiarForm(Frm As Form)

Dim n As Integer
Dim m As Long

On Error Resume Next

For n = 0 To Frm.Controls.Count - 1

Frm.Controls(n).Text = ""
Frm.Controls(n).Clear
Frm.Controls(n).Rows = 2

For m = 0 To Frm.Controls(n).Cols - 1
Frm.Controls(n).TextMatrix(1, m) = ""
Next m

Next n

On Error GoTo 0

End Sub

Este procedimiento funciona sin problemas en el entorno de desarrollo, sin embargo cuando compilo la aplicación (genero el ejecutable) se me queda colgado al llamarlo (lo he comprobado a base de msgbox para indicar por donde va la ejecucion).

Alguien sabe el porqué??????????????!!!!!!!!!!!!!!

Estoy utilizando Visual Basic 6 SP5 sobre Windows XP Professional.

Os agradeceria me echarais una mano.

Un saludo y gracias de antemano.