[RESOLVED] [2005] Order of Iteration through controls

[ZaNi]

I have been working on a project which needs to accept input from a number of textboxes. In order to minimize redundant code (and because I believe it is good practice), I have written one function that iterates through all the controls, Identifies them by their name, then adds them to the relevant list(there are three lists of textboxes, one list of comboboxes, and one list of labels). This function runs once on startup and sets some global arrays up with all the references they need for the rest of the program.

So far so good, but upon execution, the order is wrong: my first two arrays of textboxes are in the correct order, but the third is in reverse! I have made a small attempt to write a function to reverse the third list (which is not working as of this point), but it seems silly to write a function because the controls are being iterated through in the wrong order...

This leads to my question: Is there a way to alter the order in which controls as iterated through in this loop?

for each ctl as control in me.controls
  'Do stuff with control
next ctl

Any information about this would be appreciated. I have included some relevant segments of code below.

' These strings are used to identify which type of control I'm looking at
    Const boxNoOfBridgesIDString As String = "NoOfBridges"
    Const firstBridgingIDString As String = "txtBridginga"
    Const secondBridgingIDString As String = "txtBridgingb"
    Const thirdBridgingIDString As String = "txtBridgingc"
    Const labelNoIDString As String = "Label"
 
    ' Global declaration so they are accessable when I need them
    Dim boxNoOfBridges() As ComboBox
    Dim txtFirstBridge() As TextBox
    Dim txtSecondBridge() As TextBox
    Dim txtThirdBridge() As TextBox
    Dim labelNo() As Label
 
    Private Sub setupBridging()
        Dim boxcount = 0
        Dim txtfirstcount = 0
        Dim txtsecondcount = 0
        Dim txtthirdcount = 0
        Dim labelcount = 0
        For Each ctl As Control In TableBridging.Controls
            If (ctl.Name.Length > boxNoOfBridgesIDString.Length) Then
                If (ctl.Name.Substring(0, boxNoOfBridgesIDString.Length) = boxNoOfBridgesIDString) Then
                    ReDim Preserve boxNoOfBridges(boxcount)
                    boxNoOfBridges(boxcount) = ctl
                    boxcount += 1
                End If
            End If
            If (ctl.Name.Length > firstBridgingIDString.Length) Then
                If (ctl.Name.Substring(0, firstBridgingIDString.Length) = firstBridgingIDString) Then
                    ReDim Preserve txtFirstBridge(txtfirstcount)
                    txtFirstBridge(txtfirstcount) = ctl
                    txtfirstcount += 1
                    'MsgBox("Init: " + ctl.Name)
                End If
            End If
            If (ctl.Name.Length > secondBridgingIDString.Length) Then
                If (ctl.Name.Substring(0, secondBridgingIDString.Length) = secondBridgingIDString) Then
                    ReDim Preserve txtSecondBridge(txtsecondcount)
                    txtSecondBridge(txtsecondcount) = ctl
                    txtsecondcount += 1
                End If
            End If
            If (ctl.Name.Length > thirdBridgingIDString.Length) Then
                If (ctl.Name.Substring(0, thirdBridgingIDString.Length) = thirdBridgingIDString) Then
                    ReDim Preserve txtThirdBridge(txtthirdcount)
                    txtThirdBridge(txtthirdcount) = ctl
                    txtthirdcount += 1
                End If
            End If
            If (ctl.Name.Length > labelNoIDString.Length) Then
                If (ctl.Name.Substring(0, labelNoIDString.Length) = labelNoIDString) Then
                    ReDim Preserve labelNo(labelcount)
                    labelNo(labelcount) = ctl
                    labelcount += 1
                End If
            End If
        Next
 
    ' At this point, for some reason, txtThirdBridge() is in reverse
 
    End Sub