ss terminates."
    mfShelling = True

    ' Initialize the STARTUPINFO structure:
    Start.cb = Len(Start)

    ' Start the shelled application:
    CreateProcessA 0&amp;, CommandLine, 0&amp;, 0&amp;, 1&amp;, _
        NORMAL_PRIORITY_CLASS, 0&amp;, 0&amp;, Start, proc

    With moTimer
        If PollingInterval &gt; 0 Then
            .Interval = PollingInterval
        Else
            .Interval = 1000
        End If
        .Enabled = True
    End With
End Sub

Private Sub moTimer_Timer()
    Dim nCod