请问：如何将所有看得见的控件放入数组？？

[chzzj]

'出于需要，我用数组保存所有可以看得见的控件，然后暂时隐藏，
'然后再显示出来,可是提示无此属性（Obj.Visible），不知错在哪里？
'请指点，关键代码如下
Dim Obj As Control
Dim j As Integer
Dim v As Variant '或者dim v as control
Dim arr() As Control
For Each Obj In Me
If Obj.Visible = True Then
arr(j) = Obj
j = j + 1
End If
Next Obj
——————————————
For Each v In arr
v.Visible = True
Next v

[oxfordxyc]

学习中……
MARK

[rainstormmaster]

窗体上有不可视控件，如timer控件等，用错误陷阱解决如下：

Private Sub Command1_Click()
On Error Resume Next
Dim obj() As Object
Dim a
Dim i As Long
i = 0
For Each a In Me.Controls
If objhavevis(a) = True Then
If a.Visible = True Then
ReDim Preserve obj(i)
Set obj(i) = a
i = i + 1
End If
End If
Next

For i = 0 To UBound(obj)
Debug.Print obj(i).Name
Next
End Sub
Private Function objhavevis(ByVal obj As Object) As Boolean
On Error GoTo myerr:
Dim a As Boolean
a = obj.Visible
objhavevis = True
Exit Function
myerr:
Select Case Err.Number
Case 438
objhavevis = False
Exit Function
End Select
End Function