如题：如何批量 设定控件textbox的属性：locked或Readonly

以前在VBA中可以
Dim i, n As Integer
n = 13

For i = 1 To n

With UserForm2.Controls("textbox" & i)
            .Enabled = True
            .BackColor = &H8000000F
            .BackStyle = 1
            .BorderColor = &H8000000F
            .BorderStyle = 1
            .ForeColor = &HFF0000
            .SpecialEffect = fmSpecialEffectFlat
            .Locked = True
End With

Next i

但现在想用vb的话就不行了。

可是在写代码时，textbox是没有locked的属性的。~~~而用这种control表述的时候，Readonly也没办法起作用。不知问题出在哪里。
如果Form1.TextBox1.ReadOnly = True 这样直接表述，可以的。可是用了循环，就没有Readonly的属性了。

[ 本帖最后由 zurreehom 于 2015-5-4 13:05 编辑 ]

呃~有这个可能，因为我用的vs2013