' 调用 SetTextBoxProperties 过程。
SetTextBoxProperties Me
Sub SetTextBoxProperties(frm As Form)
Dim ctl As Control
' 列举 Controls 集合中的成员。
For Each ctl In frm.Controls
' 检查控件是否为文本框。
If ctl.ControlType = acTextBox Then
' 设置控件属性。
With ctl
.SetFocus
.Enabled = True
.Height = 400
.SpecialEffect = 0
End With
End If
Next ctl
End Sub