jak zrobic PPM z LPM

mam kod:

Public Class Form1    Declare Sub mouse_event Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32)    Private Sub FlatButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton1.Click        Timer1.Start()    End Sub    Private Sub FlatButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton2.Click        Timer1.Stop()    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        SendKeys.Send("{F}")        Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position)        mouse_event(&H2, 0, 0, 0, 1) 'cursor will go down (like a click)        mouse_event(&H4, 0, 0, 0, 1) ' cursor goes up again    End Sub    Private Sub FlatButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)        Timer1.Interval = TextBox1.Text    End Sub    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged    End Sub    Private Sub FlatButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton6.Click        Timer1.Start()    End Sub    Private Sub FlatButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton5.Click        Timer1.Stop()    End Sub    Private Sub FlatButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton4.Click        Timer1.Interval = TextBox2.Text    End Sub    Private Sub FlatLabel5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatLabel5.Click    End Sub    Private Sub FormSkin1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormSkin1.Click    End Sub      Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown        If e.KeyCode = Keys.F4 Then            Timer1.Stop()        End If    End Sub    Private Sub Form2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown        If e.KeyCode = Keys.F2 Then            Timer1.Start()        End If    End SubEnd Class

chce z tego zrobić aby zamiast lewego przycisku myszy klikało prawy! pomocy

Mozna zamknac