Hi ebycorreia_81,
Use this function instead of yours. checkout the way it's called also.
Private Sub ClearText(ctrl As Object, i As Integer)
For i = 0 To i
ctrl(i).Text = ""
Next
End Sub
Private Sub Command1_Click()
ClearText Text1, 4
End Sub
Please post if you need more info.
cheers,
nalla
|