用type关键字定义（VB.NET是Structure关键字）
创新互联是一家成都网站制作、网站建设，提供网页设计，网站设计，网站制作，建网站，按需求定制设计，网站开发公司，从2013年创立是互联行业建设者，服务者。以提升客户品牌价值为核心业务，全程参与项目的网站策划设计制作，前端开发，后台程序制作以及后期项目运营并提出专业建议和思路。
或者定义一个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
当用户可以设置或者得到属性的值的时候，这些属性就在改变。有此属性可以在设计的时候改变。用户可以在属性窗口设置这些属性的值，而不需要写任何代码，而有些代码在设计的时候是不能改变的，所以必须在运行的程序中写入一些设置属性的值的代码。
那些可以在运行的时候设置和读取的属性被称作"read-write"属性。而那些只能在运行的时候读取的代码称为"read-only"属性。
1.设置属性值
当需要改变一个对象的外观或者行为时，就可以改变对象的属性值。例如可以通过改变一个textbox控件的Text属性值，来改变Textbox里面的内容。
设置一个属性的值，可以用以下的语法：
object.property=expression
如下一些实例：
TextBox1.Top=200 '让Top属性值为200
TextBox1.Visible=True '显示TextBox
TextBox1.Text="hello" '在TextBox中显示"hello"
2.得到属性的值
当代码要对一个对象进行一些操作时，用户可能需要得到一个对象的状态，例如，在对一个TextBox控件进行下一步操作时，可能需要得知TextBox的text属性的值，等等。
通常情况下，用户可以通过下面这样的语法得到一个对象的属性值：
variable=object.property
用户可以把一个对象的属性值作为一个复杂表达式的一部分，而不需要先把属性值赋给一个变量再进行计算，下面这个例子就是改变一个radio按钮的属性的代码：
Private Sub cmdAdd_Click()
'[statements]
RadioButton1.Top=RadioButton1.top+20
'[statements]
End Sub
注意：如果用户需要多次使用一个属性值的话，那么先把属性值赋给一个变量，将会使效率更快一点。
在VB中有的控件有部分属性必须是在设计时定义，一旦运行就不可更改～那在定义这部分属性可以在该控件的属性窗口去定义．
注意下你给ButtonTop的Image属性赋值的地方，你的属性SET里是针对【上】这个类的改变，你如果这样写是触发不了属性改变的：
ButtonTop.背景 = Image.FromFile("C:/1.png")
正确的处理办法应该是new一个【上】类的对象，初始化时进行赋值就可以了
Me.ButtonTop = New Class1() With {.背景 = Image.FromFile("C:/1.png")}
属性必定是绑定在某个对象上的，只能供这个对象使用；而变量则是自由的，在作用域范围（全局或局部）内可任意使用。
打个比方：如果我们说“这面墙的颜色是红色的”，那么这里的“颜色”就是专指“这面墙”的颜色，也就是说这个“颜色”就是“这面墙”的属性；而如果说“颜色是红色的”，这个“颜色”就不依附于任何对象，它可以用在任何与颜色有关的场合，那么这个“颜色”就可以说是个变量。
