Public Class frmDemo
 
    'In dieser Klasse wird keine Struktur deklariert,
    'sondern die Struktur aus Graphic verwendet
    Dim pc As New Graphic.Pic
 
    Dim gr As New Graphic
 
 
    Private Sub frmDemo_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        pc.Name = "Irgendein Bild"
        pc.Sz = New Size(50, 100)
 
        'Übertragung von pc in den Bild-Member der Instanz gr der Klasse Graphic
        gr.Bild = pc
 
        Me.Text = gr.Bild.name
    End Sub
 
End Class
 
 
Public Class Graphic
 
    Public Structure Pic
        Public Name As String
        Public Sz As Size
    End Structure
 
    Public Bild As Pic
 
End Class