'宣言 Public Function Add( _ ByVal Activity As Activity _ ) As Activity
public Activity Add( Activity Activity )
ActivitiesCollection クラス ActivitiesCollection メンバ