Sub EnableAll(Enabled As Boolean, ParamArray objs() As Variant)
　　Dim obj As Variant
　　For Each obj In objs
　　obj.Enabled = Enabled
　　Next obj
　　End Sub
　　应用：
　　EnableAll True, Text1, Text2, Command1, Command2