[VB6]: Simulare click e pressione di tasti in programmi esterni

[MItaly]

Dim pid As Long
pid=Shell("c:\nomeapplicazione.exe")
AppActivate(pid)
SendKeys("sequenzaditasti")