C# と VB.NET の質問掲示板

Imports System.Windows.Forms.Application
Imports System.Runtime.InteropServices

Public Class Form1

    '高分解能パフォーマンスカウンタが存在する場合、そのカウンタの現在の値を取得します。
    Private Declare Function QueryPerformanceCounter Lib "kernel32" (
        ByRef lpPerformanceCount As Long) As Int32

    '高分解能パフォーマンスカウンタが存在する場合、そのカウンタの周波数（更新頻度）を取得します。
    Private Declare Function QueryPerformanceFrequency Lib "kernel32" (
        ByRef lpFrequency As Long) As Int32

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '高分解能パフォーマンスカウンタ精度取得
        Dim lngFreq As Long             'カウンタ精度
        QueryPerformanceFrequency(lngFreq)

        '開始時刻取得
        Dim lngStartTime As Long        '開始時間
        Dim lngEndTime As Long          '※計測用終了時間
        Dim lngLoopTime As Long         'ループ中時間
        Dim lngLoopEndTime As Long      'ループ終了時間
        Dim lngLoopCount As Long        '※計測用ループ回数
        Call QueryPerformanceCounter(lngStartTime)

        '終了時刻設定(0.001秒)
        lngLoopEndTime = lngStartTime + (lngFreq / 1000)

        '終了時刻を過ぎるまでループ
        Do
            DoEvents()
            lngLoopCount += 1           '※ループ回数
            Call QueryPerformanceCounter(lngLoopTime)
        Loop Until lngLoopEndTime <= lngLoopTime

        '※終了時刻取得
        Call QueryPerformanceCounter(lngEndTime)

        '※実行結果
        Debug.Print("{0}ミリ秒 {1}回", (lngEndTime - lngStartTime) / lngFreq, lngLoopCount)
    End Sub
End Class

(※は測定用に入れた処理の為、本来は不要)

フォームにボタン1つ張り付けて試すと分かると思うけど、0.001秒単位にそろえても実行毎にループ回数に大きな差が発生するでしょ？
これは「DoEvents()」でOS上処理をしなければならない制御が発生しているっていう意味。
厳密には違うんだけど「Thread.Sleep(1)」が0.001秒でない原因の一つではあります。

「DoEvents()」をコメントアウトすれば回数は安定するけど、今度は画面ロック等発生します。
バックグランドスレッドならこの誤差がさらに増大します。

ちなみにこの方法は他の処理の優先順位に影響を与えますのでバックグランドスレッドには合わない処理です。

まあこの辺り昔から先人が苦労してきたけど結局「0.01秒程度の誤差は発生する物」というのが
Windows上ではお約束となっているって事です。