一些VB程序的简单代码