Imports System
Imports System.Data
Imports System.Collections
public class MainClass
Shared Sub Main()
Dim a As StringStructure
a.SetString("Hello")
Dim b As StringStructure = a
Console.WriteLine("B's String: " + b.AString)
Dim c As New StringStructure("Another string")
Console.WriteLine("C's String: " + c.AString)
Console.WriteLine("C's ToString: " + c.ToString())
Dim obj As Object
obj = c
Console.WriteLine(obj.ToString())
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
| 
