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

我有这样的一个串口接收数据程序

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 Sub







Private 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