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
|