'宣言 Friend Function New( _ ByVal atype As #RJg _ )
internal Action( #RJg atype )
Action クラス Action メンバ