Looop through the controls... Private SetTooltip(oControl, strToolTip) FindToolTipControl(oControl... strToolTip) Sub FindToolTipControl(ByVal oControlCollection As ControlCollection, ByVal strToolTip As String)For Each oControl As Control In oControlCollectionNext ...................... Private Sub SetTooltip(ByVal oControl As Control, ByVal strToolTip As String)Select Case oControl.GetType.ToStringCase "System.Web.UI.WebControls.... Response.Write( Dim otxt As TextBox = oControl.FindControl(oContr... ......