[2008] Hook cannot be created Error [SendKeys]

[goldenix]

Any idea Why?

My code:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True ' interval is 2000
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        System.Console.Beep(1000, 100) ' freq, duration
        SendKeys.SendWait("i")
    End Sub

Error log:

System.Security.SecurityException was unhandled
  Message="Hook cannot be created."
  Source="System.Windows.Forms"
  StackTrace:
       at System.Windows.Forms.SendKeys.InstallHook()   
       at System.Windows.Forms.SendKeys.Send(String keys, Control control, Boolean wait)    
       at System.Windows.Forms.SendKeys.SendWait(String keys)    
       at WindowsApplication1.Form1.Timer1_Tick(Object sender, EventArgs e) 
       in C:\Documents and Settings\boogie\My Documents\Visual Studio 2008\Projects\sendmessage\sendmessage\Form1.vb:line 9    
       at System.Windows.Forms.Timer.OnTick(EventArgs e)    at System.Windows.Forms.Timer.TimerNativeWindow.WndProc(Message& m)    
       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)    
       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)    
       at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)    
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)    
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)    
       at System.Windows.Forms.Application.Run(ApplicationContext context)    
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()    
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()    
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)    
       at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81    
       at System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)    at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)    
       at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()    
       at System.Threading.ThreadHelper.ThreadStart_Context(Object state)    
       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)    
       at System.Threading.ThreadHelper.ThreadStart()
  InnerException: