Visual Basic

dim count as integer = 0<br />
for each c as control in me.controls<br />
 if typeof c is textbox then<br />
  count +=1<br />
 end if<br />
next<br />
<br />
messagebox.show("There are {0} textboxes.",count)

<br />
    Private Sub cmdTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTest.Click<br />
<br />
        Dim ctest As ControlCollection<br />
        ctest = Me.Controls<br />
        <br />
    End Sub<br />

<br />
    Private Sub cmdTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTest.Click<br />
<br />
        Dim ctest As ControlCollection<br />
        ctest = tcMain.Controls 'tcMain is a TableControl object<br />
<br />
    End Sub<br />

<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        GetControls(Me.Controls)<br />
    End Sub<br />
    Public Function GetControls(ByVal cControl As ControlCollection)<br />
        Dim iControls As Integer<br />
        For i As Integer = 0 To cControl.Count - 1<br />
            If TypeOf cControl(i) Is TabControl Then<br />
                MsgBox(cControl(i).Name)<br />
                GetControls(cControl(i).Controls)<br />
            End If<br />
            If TypeOf cControl(i) Is TabPage Then<br />
                MsgBox(cControl(i).Name)<br />
                GetControls(cControl(i).Controls)<br />
            End If<br />
            If TypeOf cControl(i) Is TextBox Then<br />
                iControls += 1<br />
            End If<br />
            If TypeOf cControl(i) Is Label Then<br />
                iControls += 1<br />
            End If<br />
        Next<br />
        MsgBox(iControls)<br />
    End Function<br />