Loop Through Server Control - Refer Code (VB.NET)

[Sudhakar S P]

-----------------------------------------------------------------------------
Thought of posting this code because lot of people are discussing about it,
I hope this will help someone who is looking for the code. - Sudhakar
-----------------------------------------------------------------------------
Private Sub LoopThroughControls()
Dim ctlTxt As spkTextBox
Dim ctlBtn As spkButton
Dim ctlLbl As spkLabel
Dim Form As HtmlForm
Dim ctl As Control

Try
For Each ctl In Page.Controls
If ctl.GetType.Name.ToUpper = "HTMLFORM" Then
Form = CType(ctl, HtmlForm)
Exit For
End If
Next
If Not Form Is Nothing Then
For Each ctl In Form.Controls
Select Case ctl.GetType.Name.ToUpper
Case "SPKTEXTBOX"
ctlTxt = CType(ctl, spkTextBox)
Case "SPKBUTTON"
ctlBtn = CType(ctl, spkButton)
Case "SPKLABEL"
ctlLbl = CType(ctl, spkLabel)
Case Else
'DO NOTHING
End Select
Next
End If
Catch ex As Exception
Throw ex
End Try
End Sub
-----------------------------------------------------------------------------