Gracias por la idea es lo mas simple aunque se visualiza la ultima linea y lo le veo problema si alguien tiene otra solucion bienvenido
Por otro lado que diferencia hay utilizando el API key_event y sendkeys?
Para llamar a una letra con sendkey basta con una linea mienstras que con el API se debe hacer todo esto, algun pro y contra debe haber?
Código:
' Constantes para las teclas y otros
Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1
'Declaración del Api keybd_event para la presión de tecla
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 Command1_Click()
Call Pulsar_Tecla(vbKeySpace)
Text1.SetFocus
End Sub
un saludo pkj por responder rapidamente, esta ultima semana estas respondiendo a full