Dim progID As Integer = 0
Dim BlockProceso() As Process = Process.GetProcessesByName("notepad")
progID = BlockProceso.Length() - 1
AppActivate(BlockProceso(progID).MainWindowTitle)
SendKeys.SendWait("Hello world!")
'' Enviamos Ctrl S para abrir el cuadro de dialogo guardar como.
'SendKeys.SendWait("^S")
'' Enviamos el nombre del nuevo archivo
'SendKeys.SendWait("c:\HelloWorld.txt")
'' Enviamos Alt S para guardar el archivo
'SendKeys.SendWait("%S")