vb 遍历frame内的控件

Dim objControl As Control
　　For Each objControl In Me.Controls
　　If objControl.Container.Name = \"Frame1\" Then
　　Debug.Print objControl.Name
　　End If
Next