VB 2010 sendkeys ERREUR

Question

J'utilise VB pour la première fois. Je ne sais pas, pourquoi ce code facile ne fonctionne pas.

Imports System.Runtime.InteropServices 

Public Class Form1 

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
     Application.Exit() 
    End Sub 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
     Dim ProcID As Integer 
     ProcID = 2940 
     AppActivate(ProcID) 
     SendKeys.SendWait("Username") 
     SendKeys.SendWait("{ENTER}") 
     SendKeys.SendWait("Password") 
     SendKeys.SendWait("{ENTER}") 
    End Sub 
End Class 

Erreur:

Answer 1

Il est à cause de la Garde du jeu est protectiong ma fenêtre .... "Juste" faire Bypass et son DONE)