Muy buenos días

En mi notebook tengo Vista Home Edition. Instalé Visual Basic 6.0 y en todos los proyectos me arroja el siguiente error

Error '70' en tiempo de ejecución: Permiso denegado

en el código

Private Sub Text1_KeyPress(KeyAscii As Integer)

      If KeyAscii=vbKeyReturn Then

         KeyAscii=0

         SendKeys("{Tab}")

      Endif

End Sub

¿? rarísimo

Cuando genero el ejecutable del proyecto y lo ejecuto, no arroja el error.

Agradecería mucho a quien pueda ayudarme con esto.

Cordialmente

Miguel.

Miguel : Ami me pasa exactamente lo mismo, lo pudiste solucionar ? si es asi por favor remitime la solución.

Muchas Gracias

cbioletto@arnet.com.ar

 a mi tamben me pasa lo mismo con el vista, en win2000 y xp no ¿ por q sera ?

saludos.Matias

Hola gente !!!! Encontore la solucion hay que entrar en "Cuentas de Usuario" en Panel de Control, y la opcion "Activar Desactivar el Control de cuentas de usuario", destildar la opcion y darle aceptar va a pedir que reinicies la pc y luego te va a decir que la maquina no esta segura por que no puede chequear que lo que se este ejecutando lo estas haciendo vos o un virus, es puro bla bla. Espero que les sirva.

Eres un tigre Gracias

Que tal, yo también tuve problemas con SenKeys "{tab}"
Consultando en varias paginas encontré una forma alternativa de hacer lo mismo pero con la Api keybd_event de Windows, el código que adapté es el siguiente:

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 Pulsar_Tecla(Tecla As Long)
Call keybd_event(Tecla, 0, 0, 0)
Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Pulsar_Tecla (vbKeyTab)
End If
End Sub

Espero les sea de utilidad como fue para mi