Public Class MKSServiceManager

    Private pmks_ServiceStartProcessName = "MainServiceProcess"

    Public WithEvents pmks_ThreadManager As MicroFour.StrataFrame.Threading.ThreadManager



    Public Sub mmks_CreateService(ByVal tcPk_RecId As String)

    ...................

    ...................

    ' me.pmks_Service - is an object and mmks_execute is a Public Sub ...



     pmks_ThreadManager.AddProcess(AddressOf Me.pmks_Service.mmks_execute, Me.pmks_ServiceStartProcessName)



                Dim llExec As Boolean = pmks_ThreadManager.IsExecuting()

    ' There I  can see llExec is True.. seems to executed..

    End Sub



   Private Sub _mmks_ThreadManager_ThreadStarted(ByVal e As MicroFour.StrataFrame.Threading.ThreadManagerEventArgs) Handles pmks_ThreadManager.ThreadStarted

        '-- Add a line item to the 'Status' list box to notify the user that thread has started

        Dim lnThreadStart As Boolean = True

    End Sub



    Private Sub _mmks_ThreadManager_ThreadCompleted(ByVal e As MicroFour.StrataFrame.Threading.ThreadManagerEventArgs) Handles pmks_ThreadManager.ThreadCompleted

        If e.ThreadName = Me.pmks_ServiceStartProcessName Then

            'Me.RunningModules.Add(Me.pmks_Service)

        End If

    End Sub





    Private Sub _mmks_ThreadManager_AllThreadCompleted() Handles pmks_ThreadManager.AllThreadsCompleted

    End Sub