Функции для клавиш клавиатуры

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
''
If GetAsyncKeyState(Keys.Q) Then
End If

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    Dim hotkey As Boolean
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        hotkey = CBool(GetAsyncKeyState(Keys.F12))
        If hotkey = True Then
            TextBox1.Text = My.Computer.Clipboard.GetText ' Получаем текст из буфера обмены
        End If
        hotkey = CBool(GetAsyncKeyState(Keys.F11))
        If hotkey = True Then
            My.Computer.Clipboard.SetText(TextBox1.Text) ' Добавляем текст в буфер обмена
        End If
    End Sub

Dim Вставка As IDataObject = Clipboard.GetDataObject()
        If e.KeyCode = Keys.Control + Keys.C Then
            Clipboard.SetDataObject(TextBox1.Text)
        End If
        If e.KeyCode = Keys.Control + Keys.V Then
            TextBox1.Text = CType(Вставка.GetData(DataFormats.Text), String)
        End If

Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Control Then
            copy = True
        End If
    End Sub
 
    Private Sub Form1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = "C" And copy = True Then
????
        End If
        If e.KeyChar = "V" And copy = True Then
????
        End If
    End Sub

        If e.KeyCode = Keys.Control + Keys.C Then
            Clipboard.SetText(TextBox1.Text)
        End If
        If e.KeyCode = Keys.Control + Keys.V Then
            TextBox1.Text = Clipboard.GetText
        End If