Private Sub Form_Load()
    Dim c As Control
    Dim cArr() As String
    Dim i As Integer
 
    ReDim cArr(Form1.Controls.Count - 1)
    For Each c In Form1
        cArr(i) = c.Name
        i = i + 1
    Next c
End Sub