Adding Hotkeys to VB Projects.

Hello. I'm making a tapper. And a multi-tool soon. I need to know the code to make a hotkey to represent a "Shell "DHCP STOP"" or any control for that matter.
-Thanks in advance.

this should help you i think if not post what you really want help with. GetAsyncKeyState Function ()

Code:

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(120)
        If StartHotkey <> 0 Then
            Shell("NET STOP DHCP")
        End If
        Dim StopHotkey As Integer
        StopHotkey = GetAsyncKeyState(121)
        If StopHotkey <> 0 Then
            Shell("NET START DHCP")
        End If
    End Sub
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://www.mpgh.net")
    End Sub
End Class

That's the way to do it. Press thanks remember!!!