■

Sharedの動作、確認。

Public Class Class1
  Public Sub New()
    MsgBox("Class1がNewされました")
  End Sub

  Public Shared Sub SharedSample()
    MsgBox("SharedSampleが呼び出されました")
  End Sub
End Class

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim testClass As Class1 = New Class1
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Class1.SharedSample()
  End Sub
End Class

Sharedにした場合は、コンストラクタは実行されない。