如何得到窗体中的所有的控件

[kilhorse]

如何得到窗体中的所有的控件，且把控件所有背景颜色更改为一种颜色

[yachong]

Private Sub Command1_Click()
On Error Resume Next
Dim x As Object
For Each x In Me.Controls
x.BackColor = vbRed
Next
End Sub

[clear_zero]

Private Sub Command1_Click()
On Error Resume Next
Dim x As Object
For Each x In Me.Controls
x.BackColor = vbRed
Next
End Sub

[yachong]

晕!！◎＃￥％……※×（
clear_zero(clear_zero)MM 似乎是在Ctrl+C，Ctrl+V