vbからの移植に成功