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

こんにちは、やま　と申します。お世話になります。

使用言語はVisual Basic2005で、
マウスでボタンを押し込んでいる間に処理を繰り返したいと思っています。

以下のようなソースで動作させると、while文の実行中にMouseUpのイベントを読み込めません。
どのようにすれば良いか、ご教授頂ければ幸いです。

よろしくお願い致します。

--------------------------------

Public Class Form1

    Private Sum As Integer
    Private Mouse As Boolean

    Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown

        Mouse = True
        Do
            Sum = Sum + 1
        Loop While Mouse = True

    End Sub

    Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp

        Mouse = False
        MsgBox(Sum)

    End Sub

End Class