1: Private Sub BTN_CANCEL_Click() 2: ' [キャンセル]ボタンが押されたときの処理 3: Set g_objGrid = Nothing 4: 5: Me.Hide 6: End Sub