Imports ProductiePitching Public Class ActivityFinishedState Inherits ActivityState 'Not from other state. Public Sub New(activity As IActivity, employee As IEmployee) Me.Activity = activity CurrentEmployee = employee End Sub 'From other state. Public Sub New(state As ActivityState) Activity = state.Activity CurrentEmployee = state.GetEmployee() End Sub ''' Public Overrides Function ActivityStateEnum() As ActivityStateEnum Return ProductiePitching.ActivityStateEnum.Finished End Function ''' Public Overrides Function GetEmployee() As IEmployee Return CurrentEmployee End Function End Class