可访问性举例(注意TestB，TestC和TestA的关系)

　　以下是引用片段：

　　Public Class TestA

　　Public i As Int32 = 100 '访问无限制

　　Private s As String = "Hello" '只有TestA可以访问

　　Protected b As Boolean = True '只有TestA和它的派生类可以访问

　　Friend d As Double = 3.1415926 '只有同项目类可以访问

　　Protected Friend l As Long = 100000 '

　　End Class

　　Public Class TestB

　　Inherits TestA'继承TestA

　　Public Sub New()

　　MyBase.b = False

　　MyBase.d = 3.14

　　MyBase.i = 10

　　MyBase.l = 10000

　　End Sub

　　End Class

　　Public Class TestC

　　Public Sub New()

　　Dim a As New TestA

　　a.d = 3.14

　　a.i = 10

　　a.l = 1000

　　End Sub

　　End Class

　　怎么样，是不是很简单啊，如果你有VB6的基础的话，相信很快就能过渡到VB.net。