VB Snippet - Enable all Controls within a Frame Control

[James Stanich]

Public Sub EnableFrame(InFrame As Frame, ByVal Flag As Boolean)
 
    Dim Contrl As Control
 
    On Error Resume Next 'not all controls have a container property
 
    InFrame.Enabled = Flag
 
    For Each Contrl In InFrame.Parent.Controls
 
        If Contrl.Container.Name = InFrame.Name Then
 
            If (TypeOf Contrl Is Frame) And Not (Contrl.Name = InFrame.Name) Then
 
                EnableFrame Contrl, Flag 'repeat for nested frame
 
            Else
 
                Contrl.Enabled = Flag
 
            End If
 
        End If
 
    Next
 
End Sub
 
Private Sub Command1_Click()
 
    EnableFrame frame1,True
 
End Sub