Imports System
Public Class Test
Private _val As Integer
Public Sub New(ByVal _val As Integer)
Console.WriteLine(_val)
Console.WriteLine(Me._val)
Me._val = _val
End Sub
Public Function Calc() As Integer
Return _val * 5
End Function
Public Shared Sub Main()
Dim o As Test = New Test(6)
Console.WriteLine(o.Calc())
End Sub
End Class
' run:
'
' 6
' 0
' 30