Class Sample
  ' アクセス修飾子Publicを指定したメソッド
  ' (このメソッドはSampleクラス外からのアクセスも可能)
  Public Sub Method1()
  End Sub

  ' アクセス修飾子Privateを指定したメソッド
  ' (このメソッドはSampleクラス内からのアクセスのみ可能)
  Private Sub Method2()
  End Sub
End Class

' このクラスはプロジェクト外にも公開される
Public Class C
  ' このメソッドはクラス外にも公開される
  Public Sub Method1()
  End Sub

  ' このメソッドはクラス内のみに公開される
  Private Sub Method2()
  End Sub

  ' このメソッドはクラス内のみに公開される (=Private)
  Sub Method3()
  End Sub

  ' このフィールドはクラス外にも公開される
  Public Field1 As Integer

  ' このフィールドはクラス内および派生クラスにのみ公開される
  Protected Field2 As Integer

  ' このフィールドはクラス内にのみ公開される
  Private Field3 As Integer

  ' このフィールドはクラス内にのみ公開される (=Private)
  Dim Field4 As Integer
End Class

' この構造体はプロジェクト外には公開されない (=Friend)
Structure S
  ' このメソッドは構造体外にも公開される
  Public Sub Method1()
  End Sub

  ' このメソッドは構造体内にのみ公開される
  Private Sub Method2()
  End Sub

  ' このメソッドは構造体外にも公開される (=Public)
  Sub Method3()
  End Sub

  ' このフィールドは構造体外にも公開される
  Public Field1 As Integer

  ' このフィールドは構造体内にのみ公開される
  Private Field2 As Integer

  ' このフィールドは構造体外にも公開される (=Public)
  Dim Field3 As Integer
End Structure

Class Sample
  Shared Sub Main()
    Dim c As New C

    ' クラスCのこれらのメンバにはアクセス可能
    c.Method1()
    c.Field1 = 16

    Dim s As S

    ' 構造体Sのこれらのメンバにはアクセス可能
    s.Method1()
    s.Method3()
    s.Field1 = 42
    s.Field3 = 3
  End Sub
End Class

Public Class C
  ' このメソッドはプロジェクト内にのみ公開される
  Friend Sub M1()
  End Sub

  ' このメソッドはプロジェクト内、および派生クラスにのみ公開される
  Protected Friend Sub M2()
  End Sub

  ' このメソッドはプロジェクト外にも公開される
  Public Sub M3()
  End Sub
End Class

Class X
  Sub M()
    Dim c As New C

    ' クラスCのメソッドM1およびM2は、同じプロジェクト内から見れば
    ' Publicと同様なので呼び出すことができる
    c.M1()
    c.M2()

    ' 当然、クラスCのメソッドM3も呼び出すことができる
    c.M3()
  End Sub
End Class

Class C1
  Inherits C ' Project1のクラスCを継承

  Sub M()
    ' Project1で定義されているクラスCのメソッドM1はFriendであり、
    ' Project2から見るとPrivateなメソッドと同様なので呼び出すことはできない
    'M1()

    ' 一方クラスCのメソッドM2はFriend Protectedで、
    ' Project2から見るとProtectedなメソッドと同様なので呼び出すことができる
    M2()

    ' 当然、クラスCのメソッドM3はPublicであるため呼び出すことができる
    M3()
  End Sub
End Class

Class Y
  Sub M()
    ' Project1で定義されているクラスCはPublicなのでインスタンスを
    ' 作成することができる
    Dim c As New C

    ' クラスCのメソッドM1、M2はPublicではないので別のプロジェクトから
    ' 呼び出すことはできない
    'c.M1()
    'c.M2()

    ' 一方クラスCのメソッドM3はPublicであるため呼び出すことができる
    c.M3()
  End Sub
End Class

Class C
  Dim _p As Integer

  Property P As Integer
    ' プロパティPへの値の設定はクラス内および派生クラスからのみに限定する
    Protected Set (ByVal val As Integer)
      _p = val
    End Set
    ' プロパティPの値の取得はクラス内外両方に許可する
    Public Get
      Return _p
    End Get
  End Property
End Class

Class C
  Dim _p As Integer

  ' PublicなプロパティPを宣言
  Public Property P As Integer
    ' Privateが指定されているため、プロパティPへの値の設定はクラス内のみで可能となる
    Private Set (ByVal val As Integer)
      _p = val
    End Set
    ' アクセス修飾子が指定されていないため、プロパティPの値の取得はPublicとなる
    Get
      Return _p
    End Get
  End Property
End Class

Class C
  ' Publicなインナークラス
  Public Class CI1
    ' このメソッドはクラス外に公開される
    Public Sub M1()
    End Sub
  End Class

  ' Privateなインナークラス
  Private Class CI2
    ' このメソッドはクラスCI2外に公開される
    Public Sub M1()
    End Sub

    ' このメソッドはクラスCI2外には公開されない
    Private Sub M2()
    End Sub
  End Class

  Sub M()
    ' インナークラスCI1は同一クラス内で宣言されているのでインスタンスを作成できる
    Dim ci1 As New CI1

    ' インナークラスCI1のメソッドM1はPublicなので呼び出すことができる
    ci1.M1()

    ' インナークラスCI2も同様に同一クラス内で宣言されているのでインスタンスを作成できる
    Dim ci2 As New CI2

    ' インナークラスCI2のメソッドM1はPublicなので呼び出すことができる
    ci2.M1()

    ' 一方メソッドM2はPrivateなので呼び出すことはできない
    'ci2.M2()
  End Sub
End Class

Class X
  Sub M()
    ' クラスCのインナークラスCI1はPublicなのでインスタンスを
    ' 作成することができる
    Dim ci1 As New C.CI1

    ' 一方インナークラスCI2はPrivateなのでインスタンスを
    ' 作成することはできない
    'Dim ci2 As New C.CI2
  End Sub
End Class

Class C
  ' Protectedなインナークラス
  Protected Class CI
  End Class
End Class

Class C1
  ' クラスCを継承
  Inherits C

  Sub M()
    ' インナークラスCIは基底クラスCで宣言されたProtectedなクラスなので
    ' インスタンスを作成できる
    Dim ci As New CI
  End Sub
End Class

Class X
  Sub M()
    ' クラスXはクラスCとは継承関係にないため、インナークラスCIの
    ' インスタンスを作成することはできない
    Dim ci As New C.CI
  End Sub
End Class

Class C
  ' IDisposableインターフェイスを実装する
  Implements IDisposable

  ' IDisposable.Disposeの実装となるメソッド
  Private Sub Dispose() Implements IDisposable.Dispose
    Console.WriteLine("disposed")
  End Sub
End Class

Class Sample
  Shared Sub Main()
    Dim c As New C

    ' C.DisposeメソッドはPrivateなので直接呼び出すことはできない
    'c.Dispose()

    ' CをIDisposableにキャスト
    Dim d As IDisposable = DirectCast(c, IDisposable)

    ' C.DisposeメソッドがPrivateでも、IDisposableインターフェイスを介して
    ' Disposeメソッドを呼び出すことができる
    d.Dispose()
  End Sub
End Class