vb combat arms tapper(source + tutorial)

Public Class Form1
    Public Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer2.Enabled = True
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Hotkey1 As Boolean
        Hotkey1 = GetAsyncKeyState(Keys.F11)
        If Hotkey1 = True Then
            Timer1.Enabled = True
            Shell("NET START DHCP")
        End If

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim Hotkey2 As Boolean
        Hotkey2 = GetAsyncKeyState(Keys.F10)
        If Hotkey2 = True Then
            Timer2.Enabled = True
            Shell("NET STOP DHCP")
        End If
    End Sub


End Classl