在Visual Basic 程序