View difference between Paste ID: rt8HwsXY and GpDhPRVm

 '==============================
 'PROCESS.VB
 '==============================
 
     Public Class Process
 
         Private _isTest As Boolean
         Public Property Test() As Boolean
-        Private Property Test() As Boolean
+
                 Return _isTest
             End Get
             Set(ByVal value As Boolean)
                 _isTest = value
             End Set
         End Property
 
         Private _timeLimitForTesting As Integer
         Public Property TimeLimitForTesting() As Integer
-        Private Property TimeLimitForTesting() As Integer
+
                 Return _timeLimitForTesting
             End Get
             Set(ByVal value As Integer)
                 _timeLimitForTesting = value
             End Set
         End Property
 
         Friend Function GetTaskCount() As Integer
-        Public Sub SetProcessTimeLimitForTesting(ByVal timeLimitForTesting As Integer)
+
-            _isTest = True
+
-            _timeLimitForTesting = timeLimitForTesting
+
         Public Tasks As List(Of Task)
 
     End Class
 
 
 '==============================
-        Public Sub AddTask(ByVal name As String)
+
-            Dim newTask As New Task()
+
-            newTask.Name = name
+
-            Me.Tasks.Add(newTask)
+
 
         Private _name As Boolean
-        Private Tasks As New TaskCollection()
+
             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)
-    Public NotInheritable Class TaskCollection
+
-        Inherits CollectionBase
+
 
-        Public Sub New()
+
 
 '==============================
 'CREATEPROCESS.SVC.VB
-        Default Public ReadOnly Property Item(ByVal index As Integer) As Task
+
 
-                Return CType(List.Item(index), Task)
+
     Public Class CreateProcess
         Implements ICreateProcess
 
-        Public Sub Add(ByVal task As Task)
+
-            List.Add(task)
+
             Dim iTaskCount As Integer = newprocess.GetTaskCount()
         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
+