VBA设置文本框控件为不可见没有效果？

[goBaby80]

VBA设置文本框控件为不可见没有效果，代码如下：
Private Sub Document_Open()
test
End Sub

Public Sub test()
On Error Resume Next
Dim tbox As Object
For Each tbox In ActiveDocument.Shapes
If tbox.OLEFormat.ClassType = "Forms.TextBox.1" Then
'MsgBox tbox.Name & ":" & tbox.TextFrame.TextRange.Text

tbox.Visible = msoFalse
End If
Next
End Sub

请大神指点！

[slamdunkning1983]

tbox.Visible = False