实例029 类的共享属性

类的共享成员用Shared关键字来说声明，
    Public Shared Property 属性名() As 数据类型
    Public Shared Sub 过程名（参数）
    Pubiic Shared Function 函数名（参数） as 数据类型
    Pubiic Shared 变量名 As 数据类型
共享成员可以直接用类名来访问。

Module Module1
    Public Class 家庭成员
        Private Shared FamilyIncome As Single = 0
        Public Shared Property Income As Single
            Get
                Return FamilyIncome
            End Get
            Set(ByVal value As Single)
                FamilyIncome = value
            End Set
        End Property
    End Class

    Sub Main()
        Dim Father As New 家庭成员
        'Dim Mother As New 家庭成员
        'Dim Husband As New 家庭成员
        'Dim Wife As New 家庭成员
        'Dim Son As New 家庭成员

        Dim Money As Single

        Money = 家庭成员.Income
        MsgBox(Money)

        'vb2010中，father.Income要写成下面这个样子了
        家庭成员.Income = 8000
        Money = 家庭成员.Income
        MsgBox(Money)

    End Sub

End Module