Public Class Form1
 
    Public Structure StructTest
        Public a As Test
 
        Public Sub New(ByVal t As String)
            a = New Test(t)
        End Sub
    End Structure
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim a, b, c As StructTest
        a = New StructTest("Hallo")
        b = New StructTest("Tschüss")
 
        MsgBox(a.a.A & " " & b.a.A, MsgBoxStyle.OkOnly)
        c = b
        a = b
 
        a.a.A = "ABC"
        MsgBox(a.a.A & " " & b.a.A, MsgBoxStyle.OkOnly)
        MsgBox(a.a.A & " " & c.a.A, MsgBoxStyle.OkOnly)
    End Sub
End Class
 
Public Class Test
    Private _a As String
 
    Public Sub New(ByVal strA As String)
        _a = strA
    End Sub
 
    Public Property A() As String
        Get
            Return _a
        End Get
        Set(ByVal value As String)
            _a = value
        End Set
    End Property
End Class

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008