Private Declare Function GetParent Lib "user32" _
  (ByVal hwnd As Long) As Long

  Dim C As Control
  Dim phWnd As Long
 
  phWnd = Frame1.hwnd
 
  For Each C In Me
    If GetParent(C.hwnd) = phWnd Then
      C.Enabled = False
    End If
  Next