帮忙看看这个代码片断，为何老是错误呢？

luoxxx_xp

Private Sub Frame9_BeforeUpdate(Cancel As Integer)
    Select Case Frame9.Value = 1
        Text18.Enabled = False
        Text20.Enabled = False
        Text22.Enabled = False
    Case Frame9.Value = 2
        Text18.Enabled = True
        Text20.Enabled = False
        Text22.Enabled = False
    Case Frame9.Value = 3
        Text18.Enabled = False
        Text20.Enabled = True
        Text22.Enabled = True
    End Select
End Sub

说明：Frame9为一个选项组，有三个单选框
text18、text20、text22分别为三个文本框
这段代码要实现的就是如果Frame9选第一个，则下面三个文本框都不可用，若Frame9选第二项，则text18可用，另外两个不可用；若Frame9选第三项，则text18不可用，后面两个可用。

我现在运行后，只要做出选择，便提示Select case和第一个case之间的语句和标签无效，请问是我的代码写错了吗？

tmtony

应该是
Select Case Frame9.value
    case 1
        Text18.Enabled = False
        Text20.Enabled = False
        Text22.Enabled = False

luoxxx_xp

原来这样啊，多谢了啊！tmtony老兄