要知道，在vb中使用默认属性是一种不好的习惯！

我想是楼主表达的意思不对，但是他的说法是对头的

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