模拟键盘回车，出问题

Question

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
Shell "c:\text.exe"
keybd_event vbEnter, KEYEVENTF_KEYUP, 0, 0
End Sub执行后，没有效果（没有产生回车效果），我哪错了？？

Answer 1

keybd_event vbEnter, KEYEVENTF_KEYUP, 0, 0
之前先按再执行keybd_event vbEnter, 0, 0, 0
插入到前面

Answer 2

发按键消息前先做点延时，text.exe 必须得到焦点才能相应消息