private labelcl as Label '这儿又用不了NEW
private withevents Label1 as Label
Private Sub Class_Initialize()
set withevents=labelcl
end sub
public property let Caption(Data as string)
label1.caption=data
end property
public property get Caption()as string
caption=label1.caption
end property
当设置和读取属性时出错,该怎么办