VB CASE语句

Private Sub Command1_Click()
Dim x#, y#

x = Val(Text1.Text)
y = Val(Text2.Text)

If y > 0 And x > 0 Then
Print "点在第一象限"
ElseIf y < 0 And x > 0 Then
Print "点在第二象限"
ElseIf y < 0 And x < 0 Then
Print "点在第三象限"
ElseIf y > 0 And x < 0 Then
Print "点在第四象限"
End If
End Sub
如何用CASE语句来改写？

呵呵，题外话，题目中的象限设置错了，y<0且x>0怎么会在第二象限？是在第四象限。改成Case语句是下面的代码：

Private Sub Command1_Click()
Dim x#, y#

x = Val(Text1.Text)
y = Val(Text2.Text)

Select Case True
Case x > 0 And y > 0
Print "点在第一象限"
Case x < 0 And y > 0
Print "点在第二象限"
Case x < 0 And y < 0
Print "点在第三象限"
Case x > 0 And y < 0
Print "点在第四象限"
Case Else
Print "点在坐标轴上"
End Select
End Sub

两个变量的没写过