[Source Help]Spot the problem in this

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
        If GetAsyncKeyState(Keys.F3) Then
            Timer2.Start()
        End If
        If GetAsyncKeyState(Keys.F4) Then
            Timer2.Stop()
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim value As Point
        value = Cursor.Position
        Cursor.Position = value
        Me.Cursor = New Cursor(Cursor.Current.Handle)
        Cursor.Position = New Point(Cursor.Position.X, Cursor.Position.Y + 30)
    End Sub
End Class

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim value As Point
        value = Cursor.Position  << one of these is unnecessary
        Cursor.Position = value << one of these is unnecessary
        Me.Cursor = New Cursor(Cursor.Current.Handle)
        Cursor.Position = New Point(Cursor.Position.X, Cursor.Position.Y + 30)
    End Sub

Dim hotkey as boolean
hotkey = GetAsyncKeyState(Keys.F3)

if hotkey = true then
' your code here!
end if