如何判断串口数据开始传送和传送完毕

我有这样的一个串口接收数据程序Private Sub Form_Load()
  'MSComm1.Settings = BaudRate & ",n,8,1"
    MSComm1.InBufferSize = 1024                '设置接收缓冲区的大小
    MSComm1.InputLen = 0                        '设置或返回，从接收缓冲区读取的字符数，0时（默认），读取缓冲区全部字符
    MSComm1.RThreshold = 1                      '接收区的“门阀值”，0时（默认），不产生OnComm事件；1时，接收缓冲区每接收到一个字符，都会产生OnComm事件
    MSComm1.SThreshold = 1                      '发送区的“门阀值”，0时（默认），不产生OnComm事件；1时，发送缓冲区每接收到一个字符，都会产生OnComm事件
    MSComm1.InBufferCount = 0
    MSComm1.PortOpen = True                    '通讯时，必须打开串口，应用程序完成时，MSComm控件自动关闭串口
    MSComm1.InputMode = comInputModeText
    Option1.Value = True
    Option3.Value = True
            Text1.Text = ""
End Sub
Private Sub Command2_Click()
   If Option1.Value Then
    MSComm1.CommPort = 1        '设置或返回端口号，值为1到16的整数，PC通常可以有16个串口
    MSComm1.Settings = "2400,n,8,1"          '设置并返回通讯参数，值为字符串String行
End SubPrivate Sub mscomm1_oncomm()
 Dim number As Integer
  '确认串口事件
   Select Case MSComm1.CommEvent
   Case comEvReceive          '2 :收到RThreshold个字符，持续产生事件，直到Input属性删除Input缓冲区的数据
   Text1.Text = Text1.Text & MSComm1.Input & vbCrLf
   Text1.SelStart = Len(Text1.Text)
End Select
End Sub
我的程序在单击Command2 时是 进入等待接收  
现在有个问题是  我想当一有数据进入时  把 Command2 的 caption 改为 数据传送中 
  当数据传送完毕时把command2.caption  改为 数据传送完毕    不知要判断那个参数才能实现  请高手帮帮忙   thank you