1、我这样测试没问题
For Each c As object In e.Form.Controls c.ReadOnly = BooleanEnum.True Next
2、你加入msgbox测试一下,如