Compare Structure and Class
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