ejecutar boton automatico

[lokoman]

Hola!!
Puedes intentar el siguiente codigo:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim A, RUTA_PROGRAMA as string

A = Shell(RUTA_PROGRAMA, vbNormalFocus)
SendKeys "%E" 'DEBES PASAR LA LETRA DEL CAPTION DEL BOTON. EJEMP. SI EL BOTON SE LLAMA "Copia", ENTONCES PASALE EL VALOR SENDKEYS "%C"
DoEvents
Sleep 2000 'ESTA ES UNA PAUSA DE 2 SEG., SI NECESITAS MAS TIEMPO, LO PUEDES AUMENTAR: 1000=1S, 300000=5 MINUTOS
SendKeys "%({F4})" 'AQUI PASAMOS ALT+F4
End 'TERMINAMOS NUESTRO PROGRAMA
End Sub