Structure Variable assignment
Imports System Imports System.Data Imports System.Collections public class MainClass Shared Sub Main() Dim S1 As New StringStructure("Hello") Dim S2 As StringStructure S2 = S1 S2.SetString("Modified") Console.WriteLine("Struct: " + S1.AString) End Sub End Class Public Structure StringStructure Public AString As String Public Sub SetString(ByVal newstring As String) AString = newstring End Sub Public Sub New(ByVal InitialString As String) AString = InitialString End Sub End Structure