VB使用示例