例子：在窗体上有三个option，一个button
Private Sub Command1_Click()
[color=red]Select Case True    '可以把True换成-1，但不能换成其它非零值来表示True[/color]
    Case Option1.Value
        Debug.Print "option1 selected"
    Case Option2.Value
        Debug.Print "option2 selected"
    Case Option3.Value
        Debug.Print "option3 selected"
    Case Else
        Debug.Print "no one selected"
End Select
End Sub

没想到还能这么用。以前一直都是像下面这样用的
select case m
    case 1
        ....
    case 2
        ...
end select
特意查了下MSDN：
Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select
其中，testexpression 必要参数。任何数值表达式或字符串表达式。 
数值表达式包括了任何其值为数的关键字、变量、常数和运算符的组合...
以前以为只能够使用变量...