ring, Optional PollingInterval As Long = 1000)
Attribute Shell.VB_Description = "Runs the process specified by CommandLine.
 Polls for termination and raises an event when the process terminates. Polling
 interval, in milliseconds, is specified by PollingInterval (default=1000, or 1
 second)."
    Dim Start As STARTUPINFO
    Dim ret As Long
    Dim nMilliseconds As Long

    If mfShelling Then Err.Raise 5, , "AsyncShell.Shell is currently in use and
     cannot be called again until the first shelled proce