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
Related examples in the same category