求救！一段VB代码，不知道哪里错了

Private Sub Command1_Click(Index As Integer)
Dim prompt, tittle, default As String
Dim xpos, ypos As Single
Select Case Index
Case 0
prompt = Text1(0).Text
tittle = Text1(1).Text
default = Text1(2).Text
If poschk Then
xpos = Text1(3).Text
ypos = Text1(4).Text
a$ = InputBox(prompt, tittle, default, xpos, ypos)
Else
a$ = InputBox(prompt, tittle, default, xpos, ypos)
Label1(5).Caption = "谢谢您的投票，您的选择是" & a$ & "！"
Case 1
Unload Me
End Select
End Sub

运行提示，case 1没有 select case

求救！一段VB代码，不知道哪里错了 一段简单的VB代码..不知道意思 一段不知道的代码? 我写了一段VB中计算器的代码，可是老是错，不知道是哪里错了，哪位大虾可以救一下 求一段VB代码 求一段vb代码 解释一段VB代码 VB.NET 代码求救 帮我理下 VB 代码，不知道哪里错了 一段VB代码中的疑问