Imports System
Imports System.Threading

Public Class RunProcess

     ' Контрол, который надо запустить  
     ' на выполнение в процессе (Счетчик времени) 
    Dim Counter As Object
     ' В контрол на форме (lblCoProc.Text) буду передавать  
     ' номер (признак, что угодно) для того, чтобы определить  
     ' какой процесс запускать в автомате 
    Dim Leable As Object
     'Переменная для свойства autoResetEv, через это свойство  
     ' с формы будем стартовать процесс (и в моем случае запускать счетчик) 
    Dim _state As Boolean = False
     'Переменная для свойства RunComplite, через это свойство  
     ' с формы будем останавливать процесс (в моем случае останавливать счетчик) 
    Dim _RunComplite As Boolean = False
     ' Сигнал для старта потока 
    Private autoResetEvent1 As Threading.AutoResetEvent


    Public Sub New(ByVal obj As Object, ByVal LbL As Object)
        Counter = obj        ' Получим котрол_счетчик, который надо будет стартовать и останавливать 
        Leable = LbL         ' Получим Лейбу для передачи через нее в форму - Флаг запуска процесса 
        WaitForAutoEvent()   ' Процедура инициализации процесса 
    End Sub


    Public Property autoResetEv() As Boolean
        Get
            Return _state
        End Get
        Set(ByVal Value As Boolean)
            _state = Value
            If _state = True Then
                 ' Emerald.CounterWTime - самопальный контрол (счетчик времени) 
                 ' запускаем отсчет времени 
                Counter.Action(Emerald.CounterWTime.StateAction.Runing)
                 ' СТАРТУЕМ ПРОЦЕСС 
                autoResetEvent1.Set()
            End If
        End Set
    End Property

    Public Property RunComplite() As Boolean
        Get
            Return _RunComplite
        End Get
        Set(ByVal Value As Boolean)
            _RunComplite = Value
            If _RunComplite = True Then
                 ' останавливаем счетчик 
                Counter.Action(Emerald.CounterWTime.StateAction.Complited)
            End If
        End Set
    End Property


    Private Sub WaitForAutoEvent()
         ' Создадим автособытие со значением по умолчанию False = Ждем 
        autoResetEvent1 = New Threading.AutoResetEvent(False)
         ' Для возвращенного сообщения от функции Calculate 
        Dim callback As New Threading.WaitOrTimerCallback(AddressOf Calculate)
         ' Регистрируем событие ... 
        Threading.ThreadPool.RegisterWaitForSingleObject(autoResetEvent1, _
                            callback, _
                            Nothing, _
                            Threading.Timeout.Infinite, _
                            False)

    End Sub

     ' НУ А ЗДЕСЬ СОБСТВЕННО ГОВОРЯ И ПРОИСХОДИТ РАБОТА ПРОЦЕССА 
    Private Sub Calculate(ByVal obj As Object, ByVal TimedOut As Boolean)

         ' ВЫЯСНЯЮ СЧЕТЧИК КАКОГО ПРОЦЕССА ЗАПУЩЕН В СВЯЗИ С ЭТИМ КАКОЕ  
         ' ДЕЙСТВИЕ ВЫПОЛНЯТЬ 
        If CType(Counter, Emerald.CounterWTime).Name = "CWT_NoCalc" Then

             ' ЗАСНЕМ НА ДВЕ СЕКУНДЫ, ЧТОБЫ НЕ ПРИДУМЫВАТЬ ИМИТАТОРЫ ВЫЧИСЛЕНИЙ  
             ' (вместо следующей строки размести нужный код) 
            Threading.Thread.CurrentThread.Sleep( 2000 )
             ' ЧЕРЕЗ СВОЙСТВО ОСТАНАВЛИВАЮ СЧЕТЧИК ВРЕМЕНИ 
            RunComplite = True
             ' ЧЕРЕЗ ССЫЛКУ ПЕРЕДАЮ В ФОРМУ НОМЕР СЛЕДУЮЩЕГО ПРОЦЕССА ДЛЯ ЗАПУСКА 
            Leable.Text = "2"

        ElseIf CType(Counter, Emerald.CounterWTime).Name = "CWT_NoKnow" Then

            Threading.Thread.CurrentThread.Sleep( 7000 )
            RunComplite = True
            Leable.Text = "3"

        End If

    End Sub

End Class

   Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
         'Стартуем Таймер (остановим после завершения всех процессов) 
        Timer1.Start()
         'Запустим общий счетчик времени 
        CWT_Total.Action(Emerald.CounterWTime.StateAction.Runing)
         'Запустим первый процесс, после окончания он запишет в lblCoProc.Text = "2" 
         'и таймер запустит 2 (второй) процесс 
        Dim CCWT_NoCalc As New RunProcess(CWT_NoCalc, lblCoProc)
        CCWT_NoCalc.autoResetEv = True

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If lblCoProc.Text = "2" Then
             ' Запустим второй процесс, после окончания он запишет в lblCoProc.Text = "3" 
             'и таймер запустит 3 (третий) процесс 
            CCWT_NoKnowStart()
        ElseIf lblCoProc.Text = "3" Then
            CCWT_UTELStart()
        ElseIf lblCoProc.Text = "4" Then
            CCWT_TarifAccountStart()
        ElseIf lblCoProc.Text = "5" Then
            CCWT_ResultTarifAccountStart()
        ElseIf lblCoProc.Text = "1" Then
            CWT_Total.Action(Emerald.CounterWTime.StateAction.Complited)
        End If

    End Sub

    Private Function CCWT_NoKnowStart()
         ' Обноулим флаг 
        lblCoProc.Text = "0"
         ' Создадим экземпляр класса и вместе с ним новый процесс 
         ' CWT_NoKnow -  имя контрола-счетчика времени 
         ' lblCoProc - имя лейбы для передачи флага 
        Dim CCWT_NoKnow As New RunProcess(CWT_NoKnow, lblCoProc)
         ' СОБСТВЕННО ГОВОРЯ, СЛЕДУЮЩАЯ СТРОКА СТАРТУЕТ ПРОЦЕСС 
        CCWT_NoKnow.autoResetEv = True
    End Function

    Private Function CCWT_UTELStart()
        lblCoProc.Text = "0"
        Dim CCWT_UTEL As New RunProcess(CWT_UTEL, lblCoProc)
        CCWT_UTEL.autoResetEv = True
    End Function

    Private Function CCWT_TarifAccountStart()
        lblCoProc.Text = "0"
        Dim CCWT_TarifAccount As New RunProcess(CWT_TarifAccount, lblCoProc)
        CCWT_TarifAccount.autoResetEv = True
    End Function

    Private Function CCWT_ResultTarifAccountStart()
        lblCoProc.Text = "0"
        Dim CCWT_ResultTarifAccount As New RunProcess(CWT_ResultTarifAccount, lblCoProc)
        CCWT_ResultTarifAccount.autoResetEv = True
    End Function