Эмуляция кликов мыши, как осуществить

Public Class Form1
    Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
 
    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        MsgBox("Клик совершен")
    End Sub
 
    Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
        mouse_event(&H2, 850, 13, 0, 0) ' нажатие
        mouse_event(&H4, 850, 13, 0, 0) ' отпуск
    End Sub
End Class

Private Sub Form1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick
 
        Button1.Text = i
        i += 1
        rr = e
    End Sub
    Dim rr As MouseEventArgs '= New MouseEventArgs(&H2, 850, 13, 0, 0)
    Dim i As Integer = 0
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Form1_MouseClick(sender, rr)
    End Sub

Public Class Form1
    Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
 
    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        If e.Button = Windows.Forms.MouseButtons.Left Then
            MsgBox("Клик совершен левой кнопкой")
        ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
            MsgBox("Клик совершен правой кнопкой")
        End If
    End Sub
 
    Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
        'Левой
        mouse_event(&H2, 850, 13, 0, 0) ' нажатие
        mouse_event(&H4, 850, 13, 0, 0) ' отпуск
        ' правой
        mouse_event(&H8, 850, 13, 0, 0) ' нажатие
        mouse_event(&H10, 850, 13, 0, 0) ' отпуск
    End Sub
End Class