自定义控件怎么设置默认属性

自定义控件如何设置默认属性
自己编写一个控件，怎么设置默认属性？
像TextBox的text，label的caption属性那样

[解决办法]
dim PCaption as string

public property let Caption(value as string )
PCaption=value
end property
public property get Caption() as string
if PCaption= " " then PCaption= "我是默認值 "
Caption=PCaption
end property

[解决办法]
我想是楼主表达的意思不对，但是他的说法是对头的
[解决办法]
http://blog.csdn.net/rainstormmaster/archive/2007/04/15/1565580.aspx
[解决办法]
要知道，在vb中使用默认属性是一种不好的习惯！