派生类添加自定义属性的奇怪问题 （XX相报）
定义了一个Button的派生类
Public Class CbtnChange
Inherits Button '从按钮类继承
Public Sub New()
MyBase.New() '调用父类的NEW方法
End Sub
dim MvarPropertyDBname As String = ""
Public Property DBname() As String '这里是添加的属性
Get
Return MvarPropertyDBname
End Get
Set(ByVal value As String)
MvarPropertyDBname = value
End Set
End Property
End Class
在WINFORM中用可视方式添加此类，能正常访问到DBname属性，可附值或读出，但用动态添加的方式：
OMyButton = New CbtnChange
myForm.Panel1.Controls.Add(OMyButton)
添加后，以下语句 me.Panel1.Controls.Item(0).DBname 却提示出错:无此属性，望高人指教，
在下会将多年收集的一些资料奉献。
[此贴子已经被作者于2006-4-27 13:48:19编辑过]
