Private Sub ProceedTextBoxes(ByRef toContainer As Control) ' ' loop through control members in toContainer ' Dim loControl As Control For Each loControl In toContainer.Controls ' ' Process only the textbox type. ' If TypeOf loControl Is TextBox Then ' ' Clear the control. ' If loControl.Visible Then loControl.Text = Space(0) End If End If Next loControl End Sub
Plamen Ivanov
MCSD .NET Early Achiever and MCAD .NET Charter Member (VB .NET/SQL Server 2000)
MCSD (VB 6.0/SQL Server 2000) br>
VB (.NET) - what other language do you need in the whole Universe?...