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