CodeItBetter Programming Another VB Programming Blog

'Controls - How to find if a control is part of a control array
Option Explicit
 
Private Sub Form_Load()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If IsControlArrayMember(ctl) Then
            Debug.Print ctl.Name & " is a part of a control array"
        Else
            Debug.Print ctl.Name & " is NOT a part of a control array"
        End If
    Next
End Sub
 
Public Function IsControlArrayMember(ByVal ctl As Control) As Boolean
    Dim index As Integer
    On Error GoTo IsControlArrayMember_Error
 
    index = ctl.index
    IsControlArrayMember = True
 
ExitHere:
    On Error GoTo 0
    Exit Function
 
IsControlArrayMember_Error:
    IsControlArrayMember = False
End Function