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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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