如何使VB6文本框上显示的数据不消失

我的VB6有问题。。我正在使用计时器将数据显示在文本框中。但问题是数据在几秒钟后消失。如何使此数据保留在文本框中，直到我单击命令按钮测量另一个数据？ 定时器的编码：

Private Sub Timer1_Timer()
   ipt = MSComm1.Input
   ipt = Right(ipt, 4)
   Text1.Text = ipt
End Sub

---

请帮助我..

在第一次执行后杀死计时器，或者调试您的过程，以便在调用时在文本框中设置什么值。在第一次执行后杀死计时器，或者调试您的过程，以便在调用时在文本框中设置什么值。@nurul-如果您满意，请不要忘记标记答案it@nurul-别忘了如果您对答案满意，请标出答案

Private Sub Timer1_Timer()
    ipt = MSComm1.Input
    ipt = Right(ipt, 4)

    if len(ipt) > 0 then
        Text1.Text = ipt
    end if
End Sub