SENDKEYS - PROBLEMA NO WINDOWS 8

Private Const KEYEVENTF_KEYUP = &H2

Private Const INPUT_KEYBOARD = 1

Private Type KEYBDINPUT

   wVk As Integer

   wScan As Integer

   dwFlags As Long

   time As Long

   dwExtraInfo As Long

End Type

Private Type GENERALINPUT

   dwType As Long

   xi(0 To 23) As Byte

End Type

Public Declare Function SendInput Lib [Ô]user32.dll[Ô] (ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long

Public Declare Sub CopyMemory Lib [Ô]kernel32[Ô] Alias [Ô]RtlMoveMemory[Ô] (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Public Function SendKeysA(ByVal vKey As Integer, Optional booDown As Boolean = False)

   Dim GInput(0) As GENERALINPUT

   Dim KInput As KEYBDINPUT

   KInput.wVk = vKey

   If Not booDown Then

       KInput.dwFlags = KEYEVENTF_KEYUP

   End If

   GInput(0).dwType = INPUT_KEYBOARD

   CopyMemory GInput(0).xi(0), KInput, Len(KInput)

   Call SendInput(1, GInput(0), Len(GInput(0)))

End Function

Public Declare Function PostMessage Lib [Ô]user32[Ô] Alias [Ô]PostMessageA[Ô] (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 

Private Sub Text1_KeyPress(KeyAscii As Integer) 

If KeyAscii = 13 Then 
 SendKeys [Ô]{tab}[Ô] [ô]13 = Enter Key 
 PostMessage hwnd, &H100, &HD&, &H1C0001 
End If 

End Sub

[ô] Clicking Button1 causes a message box to appear.
Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
    MessageBox.Show([Ô]Click here![Ô])
End Sub


[ô] Use the SendKeys.Send method to raise the Button1 click event 
[ô] and display the message box.
Private Sub Form1_DoubleClick(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.DoubleClick

    [ô] Send the enter key; since the tab stop of Button1 is 0, this
    [ô] will trigger the click event.
    SendKeys.Send([Ô]{ENTER}[Ô])
End Sub