Клики левой кнопки мыши по таймеру, при зажатой левой кнопке мыши (user32.lib)

Imports System.Runtime.InteropServices
 
Public Class Form1
 
#Region "Урезанный класс MouseHookCrop"
 
    Private Class MouseHookCrop
        Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As MouseProcDelegate, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer
        Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As MSLLHOOKSTRUCT) As Integer
        Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer
        Private Delegate Function MouseProcDelegate(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As MSLLHOOKSTRUCT) As Integer
 
        Private Structure MSLLHOOKSTRUCT
            Public pt As Point
            Public mouseData As Integer
            Public flags As Integer
            Public time As Integer
            Public dwExtraInfo As Integer
        End Structure
 
        Private Const HC_ACTION As Integer = 0
        Private Const WH_MOUSE_LL As Integer = 14
        Private Const WM_LBUTTONDOWN As Integer = &H201
        Private Const WM_LBUTTONUP As Integer = &H202
 
        Private MouseHookCrop As Integer
        Private MouseHookDelegate As MouseProcDelegate
 
        Public Event Mouse_Left_Down(ByVal ptLocat As Point)
        Public Event Mouse_Left_Up(ByVal ptLocat As Point)
 
        Public Sub New()
            MouseHookDelegate = New MouseProcDelegate(AddressOf MouseProc)
            MouseHookCrop = SetWindowsHookEx(WH_MOUSE_LL, MouseHookDelegate, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
        End Sub
 
        Private Function MouseProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As MSLLHOOKSTRUCT) As Integer
            If (nCode = HC_ACTION) Then
                Select Case wParam
                    Case WM_LBUTTONDOWN
                        RaiseEvent Mouse_Left_Down(lParam.pt)
                    Case WM_LBUTTONUP
                        RaiseEvent Mouse_Left_Up(lParam.pt)
                End Select
            End If
            Return CallNextHookEx(MouseHookCrop, nCode, wParam, lParam)
        End Function
 
        Protected Overrides Sub Finalize()
            UnhookWindowsHookEx(MouseHookCrop)
            MyBase.Finalize()
        End Sub
    End Class
 
#End Region
 
#Region "Declare & Constant для мыши"
 
    Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    Public Const MOUSEEVENTF_LEFTUP = &H4
    Private WithEvents MEvent As New MouseHookCrop
 
#End Region
 
#Region "События мыши"
 
    Private Sub MEvent_Mouse_Left_Down(ByVal ptLocat As System.Drawing.Point) Handles MEvent.Mouse_Left_Down
        Timer1.Start()
    End Sub
 
    Private Sub MEvent_Mouse_Left_Up(ByVal ptLocat As System.Drawing.Point) Handles MEvent.Mouse_Left_Up
        Timer1.Stop() 'Не хватает условия для отключения таймера
        TimeMS = 0
    End Sub
 
#End Region
 
#Region "Таймер по умолчанию (интервал = 1)"
 
    Dim TimeMS As Integer = 0
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TimeMS = 0 Then
            'mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
        ElseIf TimeMS = 25 Then
            'mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
            My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)
        ElseIf TimeMS = 50 Then
            TimeMS = 0
            Exit Sub
        End If
        TimeMS = TimeMS + 1
    End Sub
 
#End Region
 
End Class

    <DllImport("user32.dll")> _
    Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    End Function
    Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
 
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.LButton) Then
            Label1.Text = "Нажата"
            mouse_event(&H2, 0, 0, 0, 0)
        Else
            Label1.Text = "Пауза"
        End If
 
    End Sub

 Private Sub MEvent_Mouse_Left_Up(ByVal ptLocat As System.Drawing.Point) Handles MEvent.Mouse_Left_Up
        If GetAsyncKeyState(Keys.LButton) Then
            Label1.Text = "Нажата"
        Else
            Label1.Text = "Не нажата"
            Timer1.Stop() 'Не хватает условия для отключения таймера
            TimeMS = 0
        End If
    End Sub