1: Private Sub BTN_HISTORY_Click() 2: ' [更新履歴]ボタンが押されたときの処理 3: FormSlipHistory.PutHistory SlipID 4: End Sub