关于VB与单片机通信Timer控件和TXET控件的问题

我做的是VB关于超声波的上位机，我设置了一个文本框 显示超声波测得距离，但是我发现那个文本框控件中显示的距离并不能实时显示，只有关闭串口，再打开串口，才能显示出数字，而且如果实际测量距离有所改变，也得关闭再打开串口才能再显示，我有些不解，要怎么弄才可以实时显示。请求支援！！！！
下面这个是我上位机的大概部分：主体意思是我点击check控件，向单片机发送一个9（ buff(0) = &H9）；Timer控件设置的时间间隔是250，也试过其他的值，发现这并不能改变什么。

Private Sub Timer1_Timer()

 If MSComm1.InBufferCount = 2 Then

        y = Val(MSComm1.Input)

        Text1.Text = y        

    End If

End Sub



Private Sub Check9_Click()

If Check9.Value = 0 Then

     Check9.Caption = "关闭"

Else

     Check9.Caption = "打开"

     buff(0) = &H9

MSComm1.Output = buff

     End If

End Sub

下面的是我下位机的主体程序部分：

void Send(uint dat)

{

  EA=0;

	SBUF=(dat/10)+48;		 

	while(!TI);

	TI=0;

	SBUF=(dat%10)+48;			

	while(!TI);

	TI=0;

	EA=1;

}

/*------------------------------------------------

                 测量距离

------------------------------------------------*/

uint celiang(void)

{

  uint S;     //距离变量

  TIM0init();    //初始化定时器0

	

   TRIG=1;       //触发信号是高电平脉冲，宽度大于10us

   DelayUs2x(10);

   TRIG=0;

   while(!ECHO); //等待高电平

   TR0=1;

   while(ECHO);  //等待低电平

   TR0=0;

   S=TH0*256+TL0;//取出定时器值高8位和低8位合并

   S=S/58;       //为什么除以58等于厘米，  Y米=（X秒*344）/2

			     // X秒=（ 2*Y米）/344 -> X秒=0.0058*Y米 -> 厘米=微秒/58 

   TH0=0;

   TL0=0;        //清除定时器0寄存器中的值

   

   DelayMs(250);                            //延时决定采样速度

   

	return S;

  

 }

这个是发送测量数据给单片机的，主要是讲单片机超声波测得的距离发送给单片机，用LCD1602显示并没有错，距离显示正确，用串口助手调试，串口助手能显示接收到的距离数据，所以感觉总体就是与上位机的通信除了问题，无法实时显示，真的是很头疼。