Public Class Form1
 
    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 WM_HOTKEY As Integer = &H312
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_HOTKEY Then
            Select Case m.WParam
                Case New System.IntPtr(116)
                    Button1_Click(Button1, Nothing)
                Case New System.IntPtr(117)
                    MsgBox("Taste F6")
            End Select
        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, 116, 0, Keys.F5)
        RegisterHotKey(Me.Handle, 117, 0, Keys.F6)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button1.Click
        Blink(CType(sender, Button))
        MsgBox("1")
    End Sub
 
    Private Sub Button1_KeyDown _
  (ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
     Handles Button1.KeyDown
        Blink(CType(sender, Button))
    End Sub
 
    Private Sub Button1_MouseDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) _
        Handles Button1.MouseDown
        Blink(CType(sender, Button))
    End Sub
 
    Private Sub Blink(ByVal btn As Button)
        With btn
            Dim bc As System.Drawing.Color = .BackColor
            .BackColor = Color.Red
            .Refresh()
            Threading.Thread.Sleep(100)
            .BackColor = bc
            .Refresh()
        End With
    End Sub
 
End Class