Process Service

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

    Public Class Process

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

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

        Public Sub SetProcessTimeLimitForTesting(ByVal timeLimitForTesting As Integer)
            _isTest = True
            _timeLimitForTesting = timeLimitForTesting
        End Sub

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

        Public Sub AddTask(ByVal name As String)
            Dim newTask As New Task()
            newTask.Name = name
            Me.Tasks.Add(newTask)
        End Sub

        Private Tasks As New TaskCollection()

    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

    Public NotInheritable Class TaskCollection
        Inherits CollectionBase

        Public Sub New()

        End Sub

        Default Public ReadOnly Property Item(ByVal index As Integer) As Task
            Get
                Return CType(List.Item(index), Task)
            End Get
        End Property

        Public Sub Add(ByVal task As Task)
            List.Add(task)
        End Sub

        Public Sub Remove(ByVal index As Integer)
            If index > Count - 1 Or index < 0 Then
                Console.WriteLine("Can't remove this item")
            Else
                List.RemoveAt(index)
            End If
        End Sub

    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