如何遍历一个frame里面的所有textbox,并将其text置为空？

Question

Dim o
    For Each o In Frame1.Container
        Debug.Print TypeName(o)
    Next
明白了吗？

Answer 1

Dim o
    For Each o In Frame1.Container
        If TypeName(o) = "TextBox" Then o.Text = "New"
    Next

Answer 2

dim objText as Object
for each objText in Me.Objects
    if instr("索要改变的text名列表",objText)<>0 then
        objText.Text=""
    endif
next objText