创建一个自己的类和对象（相关vb.net教程)
一、创建类的步骤：
开始→新建项目→windows应用程序→项目→添加类→输入类名（mydate）→添加。
然后在class与end class 之间输入内容：
Public Class mydate
    Public m_year, m_month, m_day As Integer
    Public Sub show()
        Dim s As String
        s = Str(m_year) + "_" + Str(m_month) + "_" + Str(m_day)
        MsgBox(s, MsgBoxStyle.OkOnly, "日期")
    End Sub
End Class
二、建立一个测试类
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a, b As New mydate
        a.m_day = 24 : a.m_month = 3 : a.m_year = 2005
        a.show()
        b.m_day = 6 : b.m_month = 10 : b.m_year = 2006
        b.show()
    End Sub
End Class
程序见，我的日期类
对象定义的方式：
Dim 对象名 as new 类名；
或：
dim 对象名 as 类名
对象名 =new 类名()
成员变量（方法）的引用形式：
对象.成员变量（对象.成员方法）
三、对象的销毁：a=nothing
命名空间：相当于一个存放类的文件夹
System.console.writeln()
System.console.readln()
上面的两语句，用引用命名空间的方法可以写成：
Imports system
在下面的程序中直接写：
Console.writeln()
Console.readln()
系统默认的命名空间是：system
说明：引用命名空间的语句Imports要放在所有程序的最前面。
访问（类成员）类型：
public—都能访问； 而private protected friend 只能被同类内部访问。
四、数据成员中的共享—静态成员（课本5.3）
数据成员是用以保存数据的，有两种类型：
静态成员（或共享成员）：用shared声明，静态成员使用时不用实例化。
实例成员：默认是实例成员，此类变量或方法在使用前必须()实例化，然后用实例对象访问它。如：
Public Class salarylevel
    Public Shared level1 = 5000
    Public Shared level2 = 8000
End Class
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Console.WriteLine(salarylevel.level1)
        Console.WriteLine(salarylevel.level2)
    End Sub
End Class
上面的程序中对成员变量level1,level2的引用就没有定义实例对象，原因在于它是shared类型的。程序见，我的日期类
同时shared类型的变量的值还可以一个对象中赋值带到另一个对象中，程序见shared成员值通用实例（或类中静态成员shared）。程序为：
Public Class yuangong
    Public Shared dname As String
    Public name As String
    Public Sub display()
        Console.WriteLine("员工的名字：" & name)
        Console.WriteLine("员工所在单位：" & dname)
        Console.ReadLine()
    End Sub
End Class
测试类：
Public Class Form1
    Dim a, b As New yuangong
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        a.dname = "中国工商银行"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a.name = "张三"
        a.display()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        b.display()
    End Sub
End Class
运行结果为：
员工的名字：张三
员工所在单位：中国工商银行
员工的名字：
员工所在单位：中国工商银行
结果说明：
dname为静态成员，它的值一处发生变化，无论是对a对象还是b对象其中的dname属性值都随之而变，而name属性则是对不同的对象互不影响，原因是它不是共享成员。
小结：
shared静态成员有两个特点：
1、不用实例化而直接使用。
2、其值一处（即一个对象中）变化可带到其它地方（其它对象）。
3、在一般的事件过程中静态变量是用static说明的，而不是用shared说明，但效果类似。