API函数for visual basic