Auto-Incremented ID

    Public Class Process

        'every time a Person is added to the Processes PersonCollection, I need to set an id that is incremented.

        Public Sub AddPerson(ByVal person As Person)
            'add person
        End Sub

        Public Class Person
            Private incrementedID As Integer = 0
            'get set

        End Class

        Private NotInheritable Class PersonCollection
            Inherits CollectionBase

            Public Sub Add(ByVal person As Person)
                List.Add(person)
            End Sub

        End Class


        Public Sub AddWorkFlow(ByVal workflow As WorkFlow)
            'add workflow
        End Sub

        Public Class WorkFlow

            Public Sub AddTask(ByVal task As Task)
                'add task
            End Sub

            'whenever there is a task added to the workflow, I need to set the incrementedID of the person that is going to do the task
            'this is important because each person can be apart of many different workflows and many different tasks in each workflow

            Public Class Task
                Private personID As Integer
                'get set
            End Class

            Private NotInheritable Class TaskCollection
                Inherits CollectionBase

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

            End Class

        End Class

        Private NotInheritable Class WorkFlowCollection
            Inherits CollectionBase

            Public Sub Add(ByVal workflow As WorkFlow)
                List.Add(workflow)
            End Sub

        End Class

    End Class