需求：txtreceive也就是下面的文本框实时显示反馈信号指令。
而且串口有信号反馈时发送查询指令01 01 00 50 00 10 3D D7查询状态。此时反馈
01 01 02 00 00 B9 FC 正常状态
01 01 02 00 40 B8 0C 进方向误闯（举例）
此时检测到01 01 02 00 40 B8 0C 进方向误闯则Shape1.Visible =True

我看了半天不知道你那里不会，按说你都研究串口通讯了，这个应该完全不是问题啊：
（假设用TEXT1显示你的文本内容）
Private Sub Text1_Change()
If Text1.Text = "0101020040B80C" Then
Shape1.Visible = True
Else
Shape1.Visible = False
End If
End Sub