gamepad vb

    Public Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If SerialPort1.IsOpen Then
            If SerialPort1.BytesToRead > 0 Then
                Dim value As String = SerialPort1.ReadLine()
                value = Replace(value, "\n", "")
                If String.Equals(value, "arriere") Then
                    My.Computer.Keyboard.SendKeys("{F9}")
                    Label1.Text = "F9"
                ElseIf String.Equals(value, "1") Then
                    My.Computer.Keyboard.SendKeys("{F10}")
                    Label1.Text = "F10"
                ElseIf String.Equals(value, "2") Then
                    My.Computer.Keyboard.SendKeys("{F11}")
                    Label1.Text = "F11"
                ElseIf String.Equals(value, "3") Then
                    My.Computer.Keyboard.SendKeys("{F12}")
                    Label1.Text = "F12"
                ElseIf String.Equals(value, "4") Then
                    My.Computer.Keyboard.SendKeys("{F13}")
                    Label1.Text = "F13"
                ElseIf String.Equals(value, "5") Then
                    My.Computer.Keyboard.SendKeys("{F14}")
                    Label1.Text = "F14"
                End If
            End If
        Else
            Me.Close()
        End If
    End Sub