求助！请大家帮个忙 告诉我到底是什么原因啊！

Question

毕业设计：用RS-232连接单片机与PC机，用vb将单片机中采集的数据（数据是一个一个采集，有一个数据就按一下“测量”将数据传到PC机上）传到PC机上并用VB编写代码在PC机上显示出来
代码如下：Private Sub Command2_Click()
Dim w As Integer
With MSComm1
     .CommPort = 1              '使用COM1
     .Setting = "38400,N,8,1"        '设置通信口参数
     .InBufferSize = 40
     '设置MSComm1接收缓冲区为40字节
     .OutBufferSize = 4
     '设置MSComm1发送缓冲区为2字节
     .InputMode = comInputModeBinary
     '设置接收数据模式为二进制形式
     .InputLen = 1
     '设置Input 一次从接收缓冲读取字节数为1
     .SThreshold = 1
    '设置Output 一次从发送缓冲读取字节数为1
     .InBufferCount = 0  '清除接收缓冲区
     .OutBufferCount = 0     '清除发送缓冲区
     MaxW = -99
     '最大值赋初值
     MinW = 99             '最小值赋初值
     w = 0
     '数据个数计数器清零
     .RThreshold = 1
    '设置接收一个字节产生OnComm事件
     If .PortOpen = False Then
    '判断通信口是否打开
        .PortOpen = True       '打开通信口
        If Err Then        '错误处理
          MsgBox "串口通信无效"
          Exit Sub
        End If
     End If
  End WithEnd SubPrivate Sub MSComm1_OnComm()
Dim av As Variant
Dim ab(5) As singleSelect Case MSComm1.CommEvent          '判断MSComm1通信事件
  Case comEvReceive                    '收到Rthreshold个字节产生的接收事件        av = MSComm1.Input             '读取一个接收字节
        ab(1) = av(0)                  '转换保存到字节数据类型数组
        
       If ab(1) = &HF0 Then                          '判断是否为数据开始标志
            MSComm1.RThreshold = 0                    '关闭OnComm事件接收
            Do
                DoEvents
            Loop Until MSComm1.InBufferCount >= 4     '循环等待MSComm1接收缓冲区>=4字节
            av = MSComm1.Input                        '读取第二个数据字节（BCD码高位字节）
            ab(2) = av(0)                             '转换保存到字节数据类型数组
            av = MSComm1.Input                        '读取第三个数据字节（BCD码低位字节）
            ab(3) = av(0)                             '转换保存到字节数据类型数组
            av = MSComm1.Input                        '读取第四个数据字节（符号位字节）
            ab(4) = av(0)                             '转换保存到字节数据类型数组
            av = MSComm1.Input                        '读取第四个数据字节（符号位字节）
            ab(5) = av(0)
            
          If ab(5) = &HF0 Then
              '接收到三个字节:ab(2)、ab(3)、ab(4)
           
          End If
       End If
        
 
        
                MSComm1.RThreshold = 1     
                MSComm1.InBufferCount = 0          '清除接收缓冲区
End SelectEnd Sub运行是发现  编译错误：未找到方法或数据成员
这是什么原因！  我程序错在什么地方了！
该怎样该 ！
第一行就出来黄色警告！ 什么原因啊！

Answer 1

MSComm1     控件你有么??
工程--部件
-  MICROSOFT COMM CONTROL 6.0

Answer 2

不是刚刚有一个帖子问了么
http://community.csdn.net/Expert/topic/5558/5558116.xml?temp=.9753076

Answer 3

先检测COM端口吧,自动检测!------------------------------------------------------------------
人事考勤工资系统88！九天助建站系统8！空间300M/200元,100M/70元
 http://shop34534782.taobao.com
拍卖1起