Sharedコンストラクタ クラスの中で、Sharedキーワードを付けたメンバは、インスタンスが作成されなくても存在し、インスタンスの数と関係なく実体は1つだけ存在する。このメンバを初期化するために、Sharedコンストラクタという機能がある。以下はそれを利用した例である。 1: Public Class A 2: Private Shared a(9) As String 3: 4: Shared Sub New() 5: Dim i As Integer 6: For i = 0 To 9 7: a(i) = "オフ" 8: Next 9: End Sub 10: 11: Public Shared Sub TurnOn(ByVal index As Integer) 12: a(index) = "オン" 13: End