Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
GetParent возвращает описатель родительского окна. Например, родительским окном для кнопки обычно является окно формы.
В успешном случае функция возвращает описатель родительского окна, в случае ошибки возвращается 0.
' Определяем окно какого фрейма является ' родительским для кнопки - Frame1 или Frame2 Dim parenthwnd As Long ' родительское окно parenthwnd = GetParent(Command1.hWnd) ' получаем дескриптор родительского окна If parenthwnd = Frame1.hWnd Then Debug.Print "Кнопка внутри фрейма Frame 1" If parenthwnd = Frame2.hWnd Then Debug.Print "Кнопка внутри фрейма Frame 2"