请教VB程序的一个"中断"问题

Question

用DoEvents暂停的时候
Do
  DoEvents
Loop until 条件要执行的程序可以写在Timer控件里面，Enable让它执行，执行完Enable=False

Answer 1

MSCOMM控件支持中断的，可以设置收到多少个字符或字节后中断，中断响应程序就是OnComm

Answer 2

Dim ORIGINAL_TIME As Date
Dim SECONDS_TO_WAIT As String'this example stops the Program for 90 seconds
SECONDS_TO_WAIT = "90"
ORIGINAL_TIME = DateTime.Time
    
Do Until DateDiff("s", ORIGINAL_TIME, DateTime.Time, 0, 0) > _
    Val(SECONDS_TO_WAIT)
Loop