用VB写一个后台按键脚本

比如我想要窗口1后台按7 延迟300秒，窗口2后台按键3 延迟5秒，窗口3后台按键5延迟100秒。代码该怎么写？

Dim b As Object
  DoEvents
  Set b = CreateObject("WScript.shell")
  b.SendKeys "a"'模拟按下a

 --------------------------------------------------------------------------

延迟：

申明：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

调用：   Sleep 3000 '延时3秒执行