第一个类(clsDYCN)：
1、从数据库中取得某表(CRTB)中指定字段(TBVD)的值，生成DataTable。
DataTable中共5条记录：A1、A2、A3、A4、A5（为示例数据，数据会增加，但是不会更改或删除）
2、根据DataTable，动态生成属性。

第二个类(clsUSCO)
1、写代码时，引用第一个类，在代码编辑器里，比如 A.A1，(A1、A2、A3、A4、A5可以下拉选择)。

==================================================================================
参考效果说明：
如同你在第一个类定义属性
Public ReadOnly Property ABC()
get
return abc
end get
End Property

你在第二个类里面
dim obj as new clsDYCN
obj.ABC (此处的ABC在你输入完obj后面的点的时候会出现在下拉列表中供选择，在上面的描述里，A1-A5会出现在下拉列表中供选择)

==================================================================================

最终解决问题的将另开贴给重分表示感谢。