Attribute VB_Name = "実装処理" Option Explicit ' --------------------------------------------------------------------------------------------------------------------- ' 定数（共通） ' -------------------------------------------------------…