How to close with keyboards combine

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Brun.Click
        Dim okcancel As String
        okcancel = MessageBox.Show("Xambrowser ini di buat oleh Syarif SMKIU, tekan OK untuk melanjutkan", "Informasi", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
        If okcancel = DialogResult.OK Then
            Dim ProcessProperties As New ProcessStartInfo("chrome.exe")
            ProcessProperties.Arguments = Turl.Text & " " & Targ.Text
            Dim myProcess As Process = Process.Start(ProcessProperties)

            Brun.Text = "Stop"
            Brun.ForeColor = Color.Green
            Me.KeyPreview = True
            Timer1.Start()
        End If
    End Sub
    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.Alt And e.KeyCode.ToString = "F" Then
            MessageBox.Show("terimakasih")
            Brun.Text = "RUN"
            Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("chrome")
            For Each p As Process In pProcess
                p.Kill()
            Next
        End If
    End Sub
End Class