有些时候，我们想用vb6表单中的某一类型的控件来做些事情。例如，你可能想将所有文本框的前景颜色都改为红色。
应用Form.Controls集，你可以很方便地将表单上的所有控件连接起来。但该如何将一种类型的控件---如文本框---与别的控件—-如单选按钮—-区分开来呢？
你只需输入vb6的TypeOf关键字即可。在If语句中使用此关键字，如果所引用的控件属于某一特定类型，则返回真值；如果所引用的控件不属于此特定类型，则返回假值。
下面的代码将表单1（Form1）中的所有文本框控件的前景颜色都改为红色：
Dim c As Control
For Each c In Form1.Controls
牋?If TypeOf c Is TextBox Then
牋牋牋?c.ForeColor = vbRed
牋?End If
Next
你会发现，此方法还可用于其它的任务，如取消所有的CheckBox控件。
责任编辑：张琎
