这是我定时器的画图程序
Private Sub TmrTriger_Timer()
   dateNowTime = Now()  '记录当前时刻
   longSecond = DateDiff("s", dateStartTime, dateNowTime) - 1   '计算当前时刻与计数开始时刻的时间差(秒)
                                
   'cy = 0.1 * Pic1.ScaleHeight + Rnd * 0.8 * Pic1.ScaleHeight   '计算当前时刻在图中对应像素的横坐标x值
    cy = longSecond     '计算当前时刻在图中对应像素的横坐标x值
   If longSecond <= intNum Then
     cx = intInterval * longSecond        '计算当前时刻对应图中像素的横坐标x值
     If longSecond = 0 Then
       Pic1.PSet (cx, cy), Pic1.ForeColor '以前景色画第一个点
     End If
     
     If longSecond > 0 Then
       Pic1.Line (lx, ly)-(cx, cy), Pic1.ForeColor '以前景色将当前点与上一点连在一起
     End If
     
     
     If longSecond = intNum - 1 Then
      llx = cx                                 '将当前点保存为上二点，用于重画后更新
      lly = cy
     End If
     
   Else
     
     BitBlt Pic1.hDC, Pic1.ScaleLeft, Pic1.ScaleTop, Pic1.ScaleWidth - intInterval, Pic1.ScaleHeight, Pic1.hDC, intInterval, 0, &HCC0020 '将窗口右端部分区域拷贝至左端，右端用于重画区
      
     Pic1.Line (lx, ly)-(llx, lly), Pic1.BackColor  '用背景色抹掉最后画的线条
     Pic1.PSet (lx, ly), Pic1.BackColor     '用背景色抹掉最右端倒数第一点
     Pic1.PSet (llx, lly), Pic1.BackColor   '用背景色抹掉倒数第二点
     Pic1.Line (Pic1.ScaleWidth - intInterval, ly)-(Pic1.ScaleWidth, cy), Pic1.ForeColor
     Pic1.Refresh                           '更新显示窗口
     llx = Pic1.ScaleWidth - intInterval    '设置上二点X值坐标
     lly = ly                      '设置上二点Y值坐标
   End If
     If longSecond <= intNum Then  '如果时间秒数低于窗口显示上限值，则将像素当前X、Y值赋给上一点
        lx = cx
        ly = cy
     Else
        ly = cy    '如果时间秒数高于窗口显示上限值，则只将像素当前Y值赋给上一点
     End If
 
End Sub
不过这样只能1秒钟画一个点，我怎么才能实现10ms或者1ms画一个点？谢谢！

10ms总可以吧

谢谢！如果VB是这样，是不是说Delphi和VC都是这样，定时不准？