Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim cperson1 As New ClassPerson
Dim cperson2 As ClassPerson
cperson1.FirstName = "A"
cperson2 = cperson1
cperson2.FirstName = "B"
Console.WriteLine(cperson1.FirstName & ", " & cperson2.FirstName)
Dim sperson1 As New StructurePerson
Dim sperson2 As StructurePerson
sperson1.FirstName = "A"
sperson2 = sperson1
sperson2.FirstName = "B"
Console.WriteLine(sperson1.FirstName & ", " & sperson2.FirstName)
End Sub
End Class
Public Class ClassPerson
Public FirstName As String
Public LastName As String
End Class
Public Structure StructurePerson
Public FirstName As String
Public LastName As String
End Structure
|
