Send keys and Bring Window To Top

[seaweed]

I don't have VB on this computer, so I can't say for sure this works, but try using:

Dim MyAppID as Long
MyAppID = Shell("A Program", 1)   ' Run the program (use full path plus program name in quotes)
AppActivate MyAppID   ' Activate the program
SendKeys ("c")        ' Send "c" to that program

Good luck,

~seaweed

[This message has been edited by seaweed (edited 02-21-2000).]