Option Strict On
Imports System
Public Class YourClass
Public weight As Integer
End Class
Public Class Tester
Public Shared Sub Main( )
Dim testObject As New Tester( )
testObject.Run( )
End Sub
Public Sub Run( )
Dim firstInt As Integer = 5
Dim secondInt As Integer = firstInt
Console.WriteLine("firstInt: {0} secondInt: {1}", firstInt, secondInt)
secondInt = 7
Console.WriteLine("firstInt: {0} secondInt: {1}", firstInt, secondInt)
Dim obj As New YourClass( )
obj.weight = 5
Dim anotherObject As YourClass = obj
Console.WriteLine("obj: {0}, anotherObject: {1}", obj.weight, anotherObject.weight)
anotherObject.weight = 7
Console.WriteLine( _
"obj: {0}, anotherObject: {1}", obj.weight, anotherObject.weight)
End Sub
End Class
|