_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

  Private Sub GetControls(ByVal oContainer As Object, ByRef oControlList() As _
    Control, Optional ByVal bsubContainerAlso As Boolean = True)
    Dim c As Control
    If Not IsNothing(oContainer) Then
      For Each c In oContainer.controls
        If bsubContainerAlso AndAlso c.Controls.Count > 0 Then
          GetControls(c, oControlList)
        End If
        If oControlList Is Nothing Then
          ReDim Preserve oControlList(1)
        Else
          ReDim Preserve oControlList(oControlList.GetUpperBound(0) + 1)
        End If
        oControlList(oControlList.GetUpperBound(0)) = c
      Next
    End If
  End Sub
 
  Private Sub btnShowAllCtrls_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles btnShowAllCtrls.Click
    Dim MyCtrls() As Control = Nothing
    Dim i As Integer
    Dim sInfo As String
    GetControls(Me, MyCtrls)
    If Not MyCtrls Is Nothing Then
      For i = 1 To MyCtrls.GetUpperBound(0)
        sInfo = MyCtrls(i).Name & "/" & MyCtrls(i).GetType.ToString & "/" & _
          ValueOf(MyCtrls(i).Tag)
        ' Do someting with the Controls...
      Next i
    End If
  End Sub