请问

请教
以下代码什么意思，最好每行能给个注释，谢谢了
Sub   FC_LockField(ParamArray   ctlName())
        Dim   ctlName1   As   Variant
       
        For   Each   ctlName1   In   ctlName
                If   (TypeOf   ctlName1   Is   TextBox)   Or   (TypeOf   ctlName1   Is   ComboBox)   Or   (TypeOf   ctlName1   Is   myCombox)   Then
                        ctlName1.Locked   =   True
                        ctlName1.BackColor   =   &H80000004
                        ctlName1.TabStop   =   False
                ElseIf   ((TypeOf   ctlName1   Is   Frame)   Or   (TypeOf   ctlName1   Is   CommandButton))   Then
                        ctlName1.Enabled   =   False
                ElseIf   ((TypeOf   ctlName1   Is   RGDate))   Then
                        ctlName1.Enabled   =   False
                        ctlName1.BackColor   =   &H80000004
                Else
                        Dim   rc   As   Long
                        rc   =   MsgBox( "函数使用错误－在 "   &   ctlName1.Name,   vbOKOnly,   "调试信息 ")
                        ctlName1.SetFocus
                End   If
        Next
End   Sub

[解决办法]
Sub FC_LockField(ParamArray ctlName())
Dim ctlName1 As Variant

For Each ctlName1 In ctlName
If (TypeOf ctlName1 Is TextBox) Or (TypeOf ctlName1 Is ComboBox) Or (TypeOf ctlName1 Is myCombox) Then '判断是否为文本框，组合框或者myCombox（这个好象是外部的控件吧）
ctlName1.Locked = True ‘解锁，可以输入
ctlName1.BackColor = &H80000004 ’控件设背景颜色
ctlName1.TabStop = False
ElseIf ((TypeOf ctlName1 Is Frame) Or (TypeOf ctlName1 Is CommandButton)) Then ‘如果是框架控件或者命令按钮
ctlName1.Enabled = False ’将其不可用
ElseIf ((TypeOf ctlName1 Is RGDate)) Then
ctlName1.Enabled = False
ctlName1.BackColor = &H80000004
Else
Dim rc As Long
rc = MsgBox( "函数使用错误－在 " & ctlName1.Name, vbOKOnly, "调试信息 ")
ctlName1.SetFocus
End If
Next
End Sub
其实就是判断各个控件的状态，对其改变属性！
[解决办法]
这个函数应该是用来锁定一组控件的。

例如:
在Form上有一个TextBox控件, 名为Text1；还有一个ComboBox控件，名为Combo1；还有一个CommandButton控件，名为Command1

现在这样调用：
FC_LockField Text1, Combo1, Command1
则这个函数会将Text1和Combo1设置成只读，背景为灰色，同时将Command1设置为不可用。