向各位请教一下关于在vb中声明实体类的问题

我建了一个vb项目，用的是三层结构；我在模型层中创建实体类，但不知道如何创建GET(),SET()方法；也就是如下：
Private typeID As Integer

Public Property TypeID() As Integer
GET
Return TypeID //在这儿里的typeID不是私有属性而变成了公有的了，而且TypeID()下也划线报错了

请大家给与指教，谢谢大家了！ --------------------编程问答--------------------



Private typeID As Integer



Public Property  As Integer

GET

  Return typeID 

SET

 this.typeID  = value

--------------------编程问答-------------------- 类的实体私有属性
Private m_typeID As Integer

    Public Property TypeID() As Integer
        Get
            Dim i As Integer '临时变量
            i = m_typeID
            '对传出值进行判断及处理
            If i = 0 Then
                '对传出值进行判断及处理
            Else
                '对传出值进行判断及处理
            End If
            Return i
        End Get
        Set(ByVal value As Integer)
            Dim i As Integer
            i = value
            If i = 0 Then
                '对传入值进行判断及处理
            Else
                '对传入值进行判断及处理
            End If
            m_typeID = i
        End Set
    End Property
--------------------编程问答-------------------- 类的公共静态属性关键字 Shared  不需要 new 关键字就可以使用，与实体无关，唯一。

    Private Shared m_typeID As Integer

    Public Shared Property TypeID() As Integer
        Get
            Dim i As Integer '临时变量
            i = m_typeID
            '对传出值进行判断及处理
            If i = 0 Then
                '对传出值进行判断及处理
            Else
                '对传出值进行判断及处理
            End If
            Return i
        End Get
        Set(ByVal value As Integer)
            Dim i As Integer
            i = value
            If i = 0 Then
                '对传入值进行判断及处理
            Else
                '对传入值进行判断及处理
            End If
            m_typeID = i
        End Set
    End Property

补充：.NET技术 ,  VB.NET