Option Explicit On
Option Strict On
Imports System.Runtime.InteropServices
Public Class Form1
 
    Private WM_HOTKEY As Integer = &H312
    Private WM_ID As Integer = &HBFFF
    Private msg As String
 
    Protected Overrides Sub WndProc(ByRef msg As Message)
        If msg.Msg = WM_HOTKEY Then
            SendKeys.Send(TextBox1.Text)
            SendKeys.Send("{ENTER}")
        End If
        MyBase.WndProc(msg)
    End Sub
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        If Button1.Text = "Disable" Then
            Button1.Text = "Enable"
            Dim Taxi As Boolean = Win32Api.UnregisterHotKey(Me.Handle, WM_ID)
        Else : Button1.Text = "Disable"
            Dim Taxi As Integer = Win32Api.RegisterHotKey(Me.Handle, WM_ID, 0, _
              Keys.F1)
        End If
    End Sub
 
 
Public Class Win32Api
#Region "Win32"
    <DllImport("user32.dll")> _
     Public Shared Function RegisterHotKey( _
      ByVal hWnd As IntPtr, _
      ByVal id As Integer, _
         ByVal fsModifier As Integer, _
         ByVal vk As Integer) As Integer
    End Function
 
    <DllImport("user32.dll")> _
     Public Shared Function UnregisterHotKey( _
      ByVal hwnd As IntPtr, _
      ByVal id As Integer) As Boolean
    End Function
#End Region
End Class