Object Array / Loop

In visual basic I could create and object arrary for the form objects and my code would look like this.

for i = 1 to 10
     frmResults.ProgressBar(i).Max = frmResults.txtRedLine.Text
next i

In VBA it looks like this.

'Set Progressbars RedLine (Max)
frmResults.ProgressBar1.Max = frmResults.txtRedLine.Text
frmResults.ProgressBar2.Max = frmResults.txtRedLine.Text
frmResults.ProgressBar3.Max = frmResults.txtRedLine.Text
frmResults.ProgressBar4.Max = frmResults.txtRedLine.Text
frmResults.ProgressBar5.Max = frmResults.txtRedLine.Text
frmResults.ProgressBar6.Max = frmResults.txtRedLine.Text
frmResults.ProgressBar7.Max = frmResults.txtRedLine.Text
frmResults.ProgressBar8.Max = frmResults.txtRedLine.Text
frmResults.ProgressBar9.Max = frmResults.txtRedLine.Text
frmResults.ProgressBar10.Max = frmResults.txtRedLine.Text
'End Set Progressbars RedLine (Max)

Is there anyway to make the VBA code more like the Visual basic code? I have not been able to find any information on creating object arrays on the userform.

Tr with this code:

   For i = 1 To 10
      frmResults.Controls("ProgressBar" & i).Max = frmResults.txtRedLine.Text
   Next

Regards,
Antonio

Userform1.Controls(i) already indexes all the controls. But it doesn't split them out by type.

What kind of control is Progress Bar1?

I'll assume that ProgressBar1 is a name that you gave to the control. This should create an array of the controls, ProgressBars.

Sub createProgressBarArray()
Dim xControl As Object
Dim ProgressBars() As Object
Dim xIndex As Integer, j As Integer
xIndex = 1
ReDim ProgressBars(1 To 1)
With UserForm1
    For Each xControl In .Controls
        If Left(xControl.Name, 11) = "ProgressBar" Then
            ReDim ProgressBars(1 To xIndex)
            Set ProgressBars(xIndex) = xControl
        End If
    Next xControl
    For xIndex = 1 To UBound(ProgressBars)
        For j = xIndex To UBound(ProgressBars)
            If Val(Mid(ProgressBars(xIndex).Name, 12)) > Val(Mid(ProgressBars(xIndex).Name, 12)) Then
                xControl = ProgressBars(xIndex)
                ProgressBars(xIndex) = ProgressBars(j)
                ProgressBars(j) = xControl
            End If
        Next j
    Next xIndex
End With
End Sub