Article ID: 118468
Article Last Modified on 10/11/2006
Open "com1" For Input As #1 Input #1, x Do Until x = Chr(13) DoEvents '... '... Input #1, x Loop
X = Timer()
Do While X + 10 > Timer()
DoEvents
Loop
z% = Shell("WinWord Source.Doc",1)
DoEvents
...
...
doevents
Additional query words: Sendkeys keystroke Wait XL98 XL97 XL7 XL5 XL
Keywords: KB118468