vb 模拟多线程 timer

小弟要做数据采集软件 要采集多类数据 并将采集到的数据以图形，数字形式显示给用户。

现在是这样设计的，为每一类数据的采集定义一个timer，在timer事件中采集数据，显示数据。后来发现点问题，就是当采集的数据通道总数过大时候，或者当timer的Interval设置过小时即采样频率过大时候，就会发现数据会发现重复的现象，即采集后下一个周期采集该数据数值仍然是上一周期采集到的数值。反映到图形上的结果就是：本应该是不断跳动的曲线，在某些位置却要发生一段直线。我用的是一个公共变量x，采集时候将采集到的数据存放到x中，在显示时候调用x值。

后来从网上找相关资料得到的结果是：vb基于单线程设计。当一个timer运行时，另外的timer处于停止状态。所以想用api函数扩充多线程。每个采集的timer封装成一个线程。这样会几个timer就不会受到其他的影响。

请高手告诉：怎么在多线程中 加入timer ？
如方便的请留下一段例程。并告诉小弟，timer事件在什么地方处理，timer类似的Interval在哪里设置。

下面是小弟找到的一个例程，也可以以这个为例
ThreadControl1.CreateNewThread AddressOf ShowMovingLine, mThreadPriority, mEnabled

Public Function ShowMovingLine()
    'Displays a line moving from the top of the PictureBox to the bottom
    'in frmTest
    Dim PosBuf As Integer
    Dim TimeBuf As Long
    Do
        TimeBuf = timeGetTime
        'Clear the PictureBox
        frmTest.picOutput(0).Cls