在VB中使用API函数