Public Class Form1
    Inherits System.Windows.Forms.Form
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, _
  ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As _
  Integer
Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal _
id As Integer)
    Private Const Key_NONE As Integer = &H0
    Private Const WM_HOTKEY As Integer = &H312
    Public z As Integer = 0
    Public Enum MODKEY As Integer
        MOD_ALT = 1
        MOD_CONTROL = 2
        MOD_SHIFT = 4
        MOD_WIN = 8
    End Enum
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_HOTKEY Then
            z += 1

            TextBox1.Text = z.ToString
            SendKeys.SendWait("xyz")

        End If
        MyBase.WndProc(m)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        RegisterHotKey(Me.Handle, 1, 2, 70) 'Ctrl-F
    End Sub
End Class