Перехват нажатия кнопки с клавиатуры

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.F3 Then
            x = Cursor.Position.X
            y = Cursor.Position.Y
            Label4.Text = "Координаты для ввода: " + x.ToString() + ";" + y.ToString()
            Button1.Enabled = True
        End If
    End Sub

    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Do
            Application.DoEvents()
            If GetAsyncKeyState(&H72) < 0 Then 
            'Клавиша F3 нажата
            Else 
            'Клавиша отпущена
            End If
        Loop 
    End Sub

Imports System.Threading
Public Class Form1
 
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim str As String = ""
 
        Dim flag As Boolean = True
        Dim flag1 As Boolean = True
        While flag = True
            If flag1 = True Then
                MessageBox.Show("Приложение запущено! Нажмите ОК что бы продолжить!Для вставки скопированного кода нажмите F7(пс. для выхода из приложения нажмите F6", "Вставка кода ВСК")
                flag1 = False
            End If
            Application.DoEvents()
            If GetAsyncKeyState(&H76) < 0 Then
                If My.Computer.Clipboard.ContainsText() Then
                    str = My.Computer.Clipboard.GetText()
                    Thread.Sleep(300)
                    For i As Integer = 0 To str.Length - 1
                        SendKeys.Send(str(i))
                        Thread.Sleep(100)
                    Next
                End If
            End If
            If GetAsyncKeyState(&H75) < 0 Then
                flag = False
            End If
        End While
        MessageBox.Show("Приложение будет закрыто!", "Вставка кода ВСК")
        Application.Exit()
    End Sub
End Class