Public Class ActivityZeroState Inherits ActivityState 'Can't go from another state into this one. Public Sub New(activity As IActivity) Me.Activity = activity End Sub ''' Public Overrides Function ActivityStateEnum() As ActivityStateEnum Return ProductiePitching.ActivityStateEnum.Zero End Function End Class