For Loops using control instances

[r_obey]

How would one write a loop that would print out the contents of the Name property for all control instances on a form??

[QWERTY]

Private Sub Form_Load()
    Dim Control As Control
    
    For Each Control In Form1
        If TypeOf Control Is TextBox Then
            MsgBox Control.Name
        End If
    Next Control
End Sub

P.S. It won't work for arrays

[HeSaidJoe]

Private Sub Command2_Click()

    Dim Control As Control
    
    For Each Control In Form1
        Printer.Print Control.Name
    Next Control

        Printer.EndDoc
End Sub

[r_obey]

Thanks, It works.