Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
 
Private Sub XYZ()
Dim C As Control
 
  For Each C In Form1.Controls
    If GetParent(C.hWnd) = Frame1.hWnd Then
      C.Enabled = False
    End If
  Next
End sub