画图的问题

在WINDOWS平台，或者其他多任务平台的系统中，编程需要把握的原则是：主线程不能执行死循环操作。
VB天生单线程，也就默认只有一个线程，也就是主线程。

解决方案有几种：
1、按2楼的这种释放CPU控制权的方法再间接实现。
2、使用多线程。专门使用一个线程来负责查询，每次查询后，线程休眠N毫秒。实现方法可以百度。
3、把查询也改在 定时器里，定时器设为100毫秒触发一次。100毫秒是VB定时器的最小精度。

1、DoEvents 函数 可以转让控制权。

  但是并不会所有的情况都能转让成功，只有你的程序处理耗时小于让出的时间片，才能处理成功。
  简单理解就是，较少的响应事件这种方式还是可以的。

2、比较好的方法还是利用timer，实现多线程。

  timer1控制显示
  timer2控制画图

  可以在程序中对timer1.Interval=0 停止定时器，timer1.Interval=数值 启动定时器

3、如果你觉得timer控制时间不准，可以自己写个延时函数。
  
  sleep(1000)'表示延时1秒

'==================时间延时函数（毫秒）================================
  Private Sub sleep(seconds As Integer)
   Dim temp As Variant
   temp = timeGetTime
   While timeGetTime - seconds < temp
    DoEvents
   Wend
  End Sub  

如果你是 1秒显示时间，然后立即显示波形，就用一个定时器。
定时器设置触发时间最短的，然后在定时器里每次都对当前时间进行判断，如果过了超过1秒，就更新一次，并且绘图。否则本次定时器事件结束。

假如你显示显示时间需要1毫秒，画图需了1毫秒生成指令，然后显示出来需要10毫秒。在一个定时器周期(假设为1毫秒）中处理不完，
但不影响程序运行啊，因为程序下一次定时器触发时，检查与上一次显示时间想差不到1000毫秒，立马就可以结束本次定时器。当检查到时间超过1000毫秒时，一般根据系统负荷的不同，稍会超过一点，不会超出很多。一般在几毫秒之间。对于人体来说，这个时间根本感觉不出来。波形也不会有所变化。

拆线图可以参考  
https://bbs.bccn.net/viewthread.php?tid=306299&extra=page%3D1%26amp%3Bfilter%3Ddigest&page=1

仅使用timer无法实现多线程。