Public Class Dolgozo
	private nev As String
	private kor As Integer
	public Sub beallitNev(ByVal atvettNev As String)
		nev = atvettNev
	End Sub
	public Function lekerNev() As String
		Return nev
	End Function
End Class

Public Class Application
	Public Shared Sub Main()
		
		Dim janos As New Dolgozo()
		janos.beallitNev("Nagy János")		
		
		Console.WriteLine(janos.lekerNev())
		
	End Sub
End Class