[VB] HotKey

Como adicionar Hot Keys no vb?

1- Adicione um button e um timer
2- Adiione eses codigos
3- De dois clique na form e declare isso em baixo de plubic class form:
4- Mude o timer de "False" para "True"

<System.Runtime.InteropServices.DllImportAttribute("user32.dll")> _
   Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short
   End Function

Codigo do Timer:

Dim Hotkey As Boolean
Hotkey = GetAsyncKeyState(Keys.G) 'Tecla Desejada para ativar
If Hotkey = True Then
Button1.PerformClick() 'Button que você que colocar

OBS: Quando você apertar a tecla "G" a função do button e ativada.

Creditos:
Eu
Mr_Programmer
Mr_Cheat