1、将下列函数除掉
创新互联建站主营普宁网站建设的网络公司,主营网站建设方案,成都app软件开发公司,普宁h5微信小程序定制开发搭建,普宁网站营销推广欢迎普宁等地区企业咨询
Set(ByVal value As Boolean)’暂定为只读属性
m_SetFront = value
End Set
2、保留函数，定义为空函数
Set(ByVal value As Boolean)’暂定为只读属性
End Set
locked是线程相关的东西，是保证一次只能一个线程调用，readonly是只读属性，概念区别大大的呀。
用type关键字定义（VB.NET是Structure关键字）
或者定义一个class.VB6是类模块，VB.NET就是class类
例(VB6)
type Point
X as Integer
Y as Integer
end type
条用 dim zuobiao as point
zuobiao.x=你想要的X
zuobiao.y=你想要的Y
VB.NET
Structure Point
Dim X As Integer
Dim Y As Integer
End Structure
条用，要先创建实例对象
Dim X As New Point
X.X = 0
X.Y = 0
就是只能在设计阶段中更改的属性，这些属性在运行时为只读，不能改变，比如所有控件的name属性。
