1.
　　Dim objControl As Control
　　For Each objControl In Me.Controls
　　If objControl.Container.Name = \"Frame1\" Then
　　Debug.Print objControl.Name
　　End If
　　Next
　　2.
　　Public Sub OperateFrame(ByRef objFrame As VB.Frame, ByVal intOperation As Integer)
　　’\\\\***********************************************************************
　　’\\\\函 数 名：OperateFrameTextBox
　　’\\\\输 入： ByRef objFrame(VB.Frame) -
　　’\\\\ ： ByVal intOperation(Integer)
　　’\\\\ 1: 表示清空TextBox,
　　’\\\\ 2: 表示Enable所有TextBox
　　’\\\\输 出：无
　　’\\\\功能描述：对一个Frame内的TextBox或者ComboBox进行操作，如清空TextBox,Enable或者Disable等
　　’\\\\全局变量：
　　’\\\\使用例子：Call OperateFrame(Me.Frame2, 3)
　　’\\\\日 期：2004-09-22
　　’\\\\修 改 人：
　　’\\\\日 期：
　　’\\\\版 本：V1.0.0
　　’*************************************************************************
　　Dim objControl As Control
　　Dim TopForm As VB.Form
　　On Error GoTo ErrHandle
　　Set TopForm = GetTopContainer(objFrame)
　　For Each objControl In TopForm.Controls
　　Select Case intOperation
　　Case 1
　　’\\\\ 1 表示清空frame内所有TextBox
　　If (objControl.Container.Name = objFrame.Name) And (TypeName(objControl) = \"TextBox\") Then
　　objControl.Text = \"\"
　　End If
　　Case 2
　　’\\\\ 2 表示Enable所有frame内的TextBox
　　If (objControl.Container.Name = objFrame.Name) And (TypeName(objControl) = \"TextBox\") Then
　　objControl.Enabled = True
　　End If
　　Case 3
　　’\\\\ 2 表示Enable所有frame内的TextBox
　　If (objControl.Container.Name = objFrame.Name) And (TypeName(objControl) = \"TextBox\") Then
　　objControl.Enabled = False
　　End If
　　Case Else
　　End Select
　　Next
　　ErrHandle:
　　If Err.Number <> 0 Then
　　MsgBox Err.Description, vbCritical, \"提示\"
　　Err.Clear
　　End If
　　End Sub
　　Public Function GetTopContainer(ByRef objCtl As Control) As Object
　　’\\\\***********************************************************************
　　’\\\\函 数 名：GetTopContainer
　　’\\\\输 入：ByRef objCtl(Object)
　　’\\\\输 出：(Object)
　　’\\\\功能描述：获得某控件的顶层容器
　　’\\\\使用例子：Set TopForm = GetTopContainer(objFrame)
　　’\\\\全局变量：
　　’\\\\日 期：2004-09-22
　　’\\\\修 改 人：
　　’\\\\日 期：
　　’\\\\版 本：V1.0.0
　　’*************************************************************************
　　Dim objContainer As Object
　　Dim objMe As Object
　　Dim i As Integer
　　i = 1
　　On Error GoTo ErrHandle
　　’\\\\一层层向上获得Container，直到最高一层（为Form对象）
　　’\\\\这时候由于不存在Container对象，会诱发错误438(对象不支持该属性或方法)
　　Set objMe = objCtl
　　Do Until 1 = 2
　　If i > 2 Then
　　Set objMe = objContainer
　　End If
　　Set objContainer = objMe.Container
　　i = i + 1
　　If i > 100 Then
　　’\\\\当循环超过100次，应该是存在错误了
　　MsgBox \"异常情况！！\", vbCritical, \"提示\"
　　Exit Function
　　End If
　　DoEvents
　　Loop
　　ErrHandle:
　　If Err.Number <> 0 Then
　　If Err.Number = 438 Then
　　Set GetTopContainer = objMe
　　Else
　　MsgBox Err.Description, vbCritical, \"提示\"
　　End If
　　End If
　　End Function