一个检测类似鼠标滚轮的小程序，无法检测速度快的问题？

[zgiw]

我用VB.net做了个检测类似鼠标滚轮转速的程序，当此设备转动5圈半时能正常检测出来，但到了6圈时无法检测即数据不准确，
我在窗体中放置了两个标签控件用来接收转动次数，即lblrightnum和lblleft，当转动一下时数字加1，我看过用java做出的程序可以正常检测6圈的数据，不知为何vb.net不能检测，请各位高手解答，万分感谢！
主要程序代码如下：
dim iLeft As Integer
dim iRight As Integer
Private Sub form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel

If e.Delta > 0 Then '向上
iRight = iRight + 1
lblRightNum.Text = iRight
else '向下
iLeft = iLeft + 1
lblLeftNum.Text = iLeft
End If
End Sub

[zgiw]

之前我是用VB6写这样的程序，也是只能检测到5圈半，VB6检测鼠标滚轮需用API函数，觉得速度慢，后来听说在VS2008中已经有MouseWheel这个事件了，认为会快点，我VB.net没学过，只是这两天用我VB6的经验及查了点资料来写这个.net程序，也可能是我水平不够才这样，所以请各位高手帮忙，谢谢

[cauhorse]

不知道楼主的问题出在哪儿,我把上面的代码在VS2005下做了一遍,没有什么问题,无论快慢,计数均正常,几圈都一样...
是不是鼠标滚轮的编码器的问题?
我的鼠标用的是电刷式的接触码盘,这种码盘使用时间久了本身就存在编码不准确的问题;
以前也有鼠标滚轮采用光电码盘的,手头没有,不知道存不存在这样的问题.

[cauhorse]

原来是用电机驱动...
转速要达到多少rpm,是不是上文说的6圈?
不过太快好象也没必要,本身人使用的时候也不会高速地拨动滚轮.
而且,这个检测产品似乎用其他的微控制器做更为合适些...

[zgiw]

主要是检测一个类似鼠标滚轮的产品，如用手工转动鼠标滚轮是看不出问题，但如用电机驱动这个滚轮则差距明显

[zgiw]

如何将此程序改为多线程，用二个线程来检测转动，一个线程检测向下滚动，一个线程检测向上滚动，这样不管是向上向下都能检测出来，因为这个程序是要检测产品质量的，假如在向上滚动时突然又向下转动一下，则此产品为不良品，我用VB6无法检测转动不明显的产品，想改用VB.net来试试多线程，希望高手帮我，万分感谢！

[zgiw]

主要这个程序是检测产品质量，在向下滚动时如又向上滚动则这产品为不良品，我的VB6程序可以检测出较明显的故障，但不明显的检测不出，我想用VB.net的多线程来试试，即一个线程监控向下滚动，一个线程监控向上滚动，不知这样该如何来做?

[Code.Egg]

Public Class Form1
Dim A As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta > 0 Then
A = A + 1
Label1.Text = A.ToString
Else
A = A - 1
Label1.Text = A.ToString
End If
End Sub
End Class
我的怎么可以
以上这个就可以计无数圈