>>233

コントロールの親フレーム
Command1.Container.Name

フレームの子コントロール
Function Controls(Frame As Frame) As Collection
Dim Control As Control

Set Controls = New Collection
For Each Control In Frame.Parent
If Control.Container Is Frame Then
Controls.Add Control
End If
Next
End Function

使い方
Dim Control As Control
For Each Control In Controls(Form1.Frame1)
Debug.Print Control.Name
Next