❓ Sending fake user input

Public Class Form1
    Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As IntPtr)
    Private Sub mouseclickingexample(ByVal LeftClick_RightClick As String)
        Const MOUSEEVENTF_LEFTDOWN As Integer = 2
        Const MOUSEEVENTF_LEFTUP As Integer = 4
        Const MOUSEEVENTF_RIGHTDOWN As Integer = 6
        Const MOUSEEVENTF_RIGHTUP As Integer = 8
        If LeftClick_RightClick = "RightClick" Then
            mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, IntPtr.Zero)
            mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, IntPtr.Zero)
        ElseIf LeftClick_RightClick = "LeftClick" Then
            mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, IntPtr.Zero)
            mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)
        Else
        End If
    End Sub

    Private Sub keyboardclickingexample(ByVal keyclicks As String)
        My.Computer.Keyboard.SendKeys(keyclicks)
    End Sub

    Private Sub cursor_possetexample(ByVal xpos As Integer, ByVal ypos As Integer)
        Cursor.Position = New Point(xpos, ypos)
    End Sub

    Private Sub Usage_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Usage_Button.Click
        'keyboard clicking usage :
        keyboardclickingexample("5")
        'or
        keyboardclickingexample("this is an example by lucasheer715")

        'mouse positions exampe (place where u wanna click)
        cursor_possetexample(50, 50)

        'mouse click example :
        'left click
        mouseclickingexample("LeftClick")
        'or right click
        mouseclickingexample("RightClick")
    End Sub
End Class