Process Service - Solution

'==============================
'PROCESS.VB
'==============================

    Public Class Process

        Private _isTest As Boolean
        Public Property Test() As Boolean
            Get
                Return _isTest
            End Get
            Set(ByVal value As Boolean)
                _isTest = value
            End Set
        End Property

        Private _timeLimitForTesting As Integer
        Public Property TimeLimitForTesting() As Integer
            Get
                Return _timeLimitForTesting
            End Get
            Set(ByVal value As Integer)
                _timeLimitForTesting = value
            End Set
        End Property

        Friend Function GetTaskCount() As Integer
            Return Me.Tasks.Count
        End Function

        Public Tasks As List(Of Task)

    End Class


'==============================
'TASK.VB
'==============================

    Public Class Task

        Private _name As Boolean
        Public Property Name() As Boolean
            Get
                Return _name
            End Get
            Set(ByVal value As Boolean)
                _name = value
            End Set
        End Property

    End Class


'==============================
'ICREATEPROCESS.VB
'==============================


Imports System.ServiceModel

<ServiceContract()>
Public Interface ICreateProcess

    <OperationContract()>
    Sub CreateNewProcess(ByVal newprocess As Process)

End Interface



'==============================
'CREATEPROCESS.SVC.VB
'==============================


    Public Class CreateProcess
        Implements ICreateProcess

        Public Sub CreateNewProcess(ByVal newprocess As Process) Implements ICreateProcess.CreateNewProcess
            'do stuff with new process
            Dim iTaskCount As Integer = newprocess.GetTaskCount()
        End Sub

    End Class