Imports System
Class Example
Private s As String
Public Sub New(ByVal _s As String)
MyClass.s = _s
Console.WriteLine(MyClass.s)
Console.WriteLine(s)
Console.WriteLine(_s)
End Sub
End Class
Public Class Test
Public Shared Sub Main()
Dim o As Example = New Example("VB.NET")
End Sub
End Class
' Run:
'
' VB.NET
' VB.NET
' VB.NET