[2008] Hook cannot be created Error [SendKeys]

Any idea Why?

My code:

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:

Code:

---

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:

---