I'm having problems getting sendkeys to work in photoshop. I could get it to work in notepad. I think with Photoshop is that when it first starts up, there is a splash screen that comes up and stays there for a while. During that time, I'm using sendkeys to photoshop and they're not getting through. Below is the code.
Private Sub cmdNotePad_Click()
Dim RetVal
RetVal = Shell("Notepad.exe", 1)
SendKeys "ab", True
SendKeys "%fa", True
End Sub
Private Sub cmdPhotoshop_Click()
Dim RetVal
RetVal = Shell("D:\Program Files\Adobe\Photoshop 5.0\Photoshp.exe", 1)
SendKeys "%fn", True
End Sub
My question is how do I wait for that splash screen to go away and then send the sendkeys command?