用VB做毕设，编译是出现Case没有SelectCase的错误，请大大们帮帮忙吧～

具体代码如下：
Public Sub InputManager()
intCommFlag = 16

Dim bytTest() As Byte

Dim strReceive As String

Dim intTest As Long

Dim strTemp As String

frmMain.ctrMSComm.InputMode = comInputModeBinary
frmMain.ctrMSComm.InputLen = 6

bytTest = frm.ctrMSComm.Input
ReDim Preserve bytTest(5) '获取帧头

If bytTest(0) = 1 And bytTest(1) = 0 Then
intReceiveLen = bytTest(2) * 100 + bytTest(3)
frmMain.ctrMSComm.InputMode = commInput.ModeText
frmMain.ctrMSComm.InputLen = 0
For n = 1 To 1000000
Next n
strReceive = frmMain.ctrMSComm.Input
strTemp = "接收:" + strReceive
Call frmMain.ReceiveDisplay(strTemp, 2)

ElseIf bytTest(0) = 0 And bytTest(1) = 1 Then
intTest = bytTest(2) * 100 + bytTest(3)

Select Case intTest
Case 101
intReceiveLen = bytTest(4)
frmMain.ctrMSComm.InputMode

VB的Form_Unload()中出现编译错误 我用vb打包,为什么能编译,打包时却出现文件夹不包含该路径? VB 软件 编译出现问题,帮助解决下! VB用什么工具来编译、运行? vc编译时是出现的问题 vb 编译环境下载 vb编译,怪事! vb编译无效图片 vb编译后问题? 用VC++8.0编译时出现问题？？