SENDKEYS y Win7

[E N T E R]

No se que le paso a mi VB6 tengo Win7 64 y nunca tube problema con el SENDKEYS ahora no puedo usar por que me aparece el Error 73 No tiene permiso. Yo se que es del UAC del Win pero lo tengo desactivado totalmente. Y solo pasa cuando estoy probando mi programa si lo compilo no pasa nada.

[seba123neo]

usa api, SendKeys es cutre.

[E N T E R]

Aca es donde tengo el error es de un ucControl.

Código: (vb) [Seleccionar]

Private Sub txtRaiz_KeyDown(KeyCode As Integer, Shift As Integer)
   
    If xFocus Then
   
        Select Case KeyCode
           Case vbKeyDown:   Sendkeys "{TAB}"
           Case vbKeyUp:     Sendkeys "+{TAB}"
           Case vbKeyReturn: Sendkeys "{TAB}"
        End Select
       
    End If
   
    RaiseEvent KeyDown(KeyCode, Shift)
   
End Sub
Como lo adaptaría este con el Api amigo Seba.
Juntando Mensajes.
Aca encontré funciona bien la tecla ENTER y vbKeyDOWN, pero el VBkeyUP no me funciona. Para que pueda volver el foco con la flecha arriba.

Código: (VB) [Seleccionar]

Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Sub EnviarFoco(Tecla As Long)
    Call keybd_event(Tecla, 0, 0, 0)
    Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Call EnviarFoco(vbKeyTab)
End Sub