Public Function AddActivitySubject( _
   ByVal pIActivitySubject As ActivitySubject _
) As ActivitySubjectParams