是一个属性,用于获取值用的
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：国际域名空间、雅安服务器托管、营销软件、网站建设、滨江网站维护、网站推广。
eg:
property text as string
get
return ""'在这里就是获取 text 属性时 返回 ""
end get
set (value as string)
'这里看你让别人给有值放到那里,传进来时 就在 value 这个参数里
textbox1.text=value
end set
end property
当你这样写完时,你写这个属性的对象就会有了 Text 属性 如果 原来有这个属性 会提示你 重载
看样子应该是设置和读取某个物件的属性。。而这个属性就是sslStatus．Text的值。
在这里Get是将sslStatus.Text这个结果读取出来；而Set(ByVal value As String)是将value这个参数值赋值给sslStatus.Text,也即是让这个名为sslStatus的文本框显示value这个值。
Set就是给对象变量赋值。
如：
Dim MyLabel As Object '定义一个对象变量MyLabel
Set MyLabel = Label1 '给MyLabel赋值（要注意Label1是窗体中实际存在的控件）
MsgBox MyLabel.Caption '显示MyLabel的Caption属性值（相当于Label1.Caption）
一般用法，先有这个对象，或者先定义变量。
Dim i As string '定义一个对象变量i,字符型
Set i = "8" '变量i 为8
MsgBox i ‘显示就是8字符串
【首发答案】 VB6 中才有Set，VB点虐 中没有了
直接 a = New a 即可。
^_^ 给分撒～