Private Sub LoopTextBoxes() ' Variables Dim nCnt% Dim oType As System.Type Dim frmTrgt As System.Web.UI.HtmlControls.HtmlForm Dim txtObj As System.Web.UI.WebControls.TextBox ' Loop Controls - Get Form For nCnt = 0 To Controls.Count - 1 ' Assign Type oType = Controls(nCnt).GetType ' Determine Match If InStr(UCase(oType.FullName), "HTMLFORM", CompareMethod.Text) Then ' Assign Value frmTrgt = Controls(nCnt) ' Bail Exit For End If ' Free Memory oType = Nothing Next ' Loop Controls - Get Form For nCnt = 0 To frmTrgt.Controls.Count - 1 ' Assign Type oType = frmTrgt.Controls(nCnt).GetType ' Determine Match If InStr(UCase(oType.FullName), "TEXT", CompareMethod.Text) Then ' Assign Control txtObj = frmTrgt.Controls(nCnt) ' Assign Value txtObj.Text = "Got It" ' Free Mem txtObj = Nothing End If ' Free Memory oType = Nothing Next End SubHappy 4th! Hope that helps...