VB.NET面向对象的实现