ALLE controls in een form overlopen

[bn2vs]

>=vb7

Hey,

Ik wil alle controls in een form overlopen. Dit blijkt echter redelijk moeilijk te zijn. Mijn form is redelijk complex, en bevat een toolstip container, een statusbar, enkele menus en tabcontrols, ect.

Iemand een idee hoe ik dit voor elkaar krijg?

Alvast bedankt

 

[bn2vs]

Heb nu deze code voor mn form geschreven, maar denk niet dat die het voor elke form gaat doen, want er zijn zo *** veel uitzonderingen

    Private Sub setControlLangValues(ByVal parent As Object)
        setLangValue(parent)
        Select Case True
            Case TypeOf (parent) Is ToolStrip
                For Each item As ToolStripItem In CType(parent, ToolStrip).Items
                    If Not TypeOf (item) Is ToolStripSeparator Then setControlLangValues(item)
                Next

            Case TypeOf (parent) Is ToolStripMenuItem
                For Each item As Object In CType(parent, ToolStripMenuItem).DropDownItems
                    setControlLangValues(item)
                Next

            Case TypeOf (parent) Is TabControl
                For Each obj As Object In CType(parent, TabControl).TabPages
                    setControlLangValues(obj)
                Next

            Case TypeOf (parent) Is ToolStripContainer
                Dim container As ToolStripContainer = CType(parent, ToolStripContainer)
                setControlLangValues(container.ContentPanel)
                setControlLangValues(container.TopToolStripPanel)
                setControlLangValues(container.BottomToolStripPanel)

            Case TypeOf (parent) Is Control
                For Each obj As Object In CType(parent, Control).Controls
                    setControlLangValues(obj)
                Next

        End Select
    End Sub

Als iemand weet hoe dit beter kan...