|
Public Sub ClearAllControls(frmForm As Form)
Dim ctlControl As Object ' Inizializza tutti i controlli On Error Resume Next For Each ctlControl In frmForm.Controls ctlControl.Text = "" ctlControl.ListIndex = -1 DoEvents Next ctlControl End Sub Richiamare la procedura cosi': Call ClearAllControls(Me) ZD Tips © 1998 by Mauro Rossi |