RFID读卡机套件用VB写程式

我写了一个程式
一开始要先利用CMD来决定要选择哪一个PORT
然后利用TIMER来做一个RFID的连接
利用我的PORT连接上RFID套件
只要RFID套件触发时
CardNOText.Text就会显示出这张卡里面的资料

但是出现一个大问题
一开始都和我希望的一样
但是当套件触发以后
在CardNOText.Text上面显示的资料只停留了不到2秒
马上就又消失了
请问有没有办法
让资料就停在那边
不会再消失!?!

下面是我的程式码
Dim InByte() As Byte

Private Sub cmdCheck_Click()

MSComm1.CommPort = commText.Text
MSComm1.PortOpen = True
Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Dim i%, Buf$

InByte = MSComm1.Input
For i = LBound(InByte) To UBound(InByte)
Buf = Buf + Chr(InByte(i))
Next i
CardNOText.Text = Buf

End Sub

VB程序有读卡机联接 可以用汉语写程式代码吗？ 求vb程式码 VB请教程式 用VB编写删除程式。会的进下下。 帮忙作一个程式(VB) 为什么说VB是非过程式程序设计语言 如何制作设置密码VB程式 用C写一个程式,判断3个数的大小,并从小到大输出 用vb6.0写一个程式，如何控制asp页面点击按钮提交？