写出DELPHI和VB中的声明看看才好说