Class Person（成员对象--个人）
。。。。。。
End Class
Class Club（集合对象--俱乐部）
。。。。。。
Private pa As ArrayList = New ArrayList() (建立了一个集合ArrayList类，这个类的方法有Add ；Remove等)
Public Sub join(ByVal p As Person)(ByVal p As Person起到了类似dim p as person的作用，引进了一个“内容”)
pa.Add(p) （把"内容"添加到一个"集合"）
End Sub
End Class
三．关于封装性
所谓封装性就是在类与类之间设定合法之存取规律
Public 关键字指定在类与类之间是公用的
Protected 关键字指定在同一个类（族）之间是公用的，包括他的子类
原文如下“指定某些资料为家族公用﹐亦即只有子孙类别内之程序可取用﹐非子孙类别之程序必须呼叫家族内之程序代为存取。”
细心的读者可能已注意到这里已经使用了“ 家族”的说法，印证了族的定义。
Private 关键字指定是私有的，不能外部存取，也不能在族内共享，只能在他自已的空间活动了。
如果想访问Private的对象，只有使用set;get写一个接口，或者使用这个对象内的子过程或函数去执行了，当然你要加上Public在sub或function前面了。
四．父子对象关系（继承关系），母子对象关系（Whole-Part关系）
我突然不想写了，大家可别生气，如果想了解更多，还是去看人家的教程吧，我专挑一些容易的看，可不要学我，这样难免断章取义（是不好的）。另外各位要是看出错误来就请指证，这个反正大家是探讨。如果有想骂的，最好到我的论坛去发泄一下（人少），好歹给兄弟一些面子。最好是看得生气了，以至于水平很好又不喜欢写文章的气得写VB.Net了，英文很好又不喜欢翻译的气得去翻译VB.Net了，我们这一大群“文忙”就有福了(不需要再看我这些劣质文章了)。
VB.Net中文站网址：http://vbnetcn.126.com
