Public Structure structTest
   Implements ICloneable
 
   Dim a As Integer
   Dim b As Integer
   Dim c As Integer
   Dim o As SubData
 
   Public Function Clone() As Object Implements System.ICloneable.Clone
      Return MemberwiseClone()
   End Function
End Structure
 
 
 
Public Class SubData
   Private m_ObjectTest As Object
 
   Public Sub New(ByVal Value As Object)
      m_ObjectTest = Value
   End Sub
 
   Public Property ObjectTest() As Object
      Get
         Return m_ObjectTest
      End Get
      Set(ByVal value As Object)
         m_ObjectTest = value
      End Set
   End Property
End Class
 
 
 
Public Class Form1
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Dim Daten(9) As structTest
 
      Daten(0).a = 1
      Daten(0).b = 2
      Daten(0).c = 3
      Daten(0).o = Nothing
 
      Daten(1) = Daten(0).Clone
 
      Daten(0).a = 4
      Daten(0).b = 5
      Daten(0).c = 6
      Daten(0).o = New SubData(Me)
 
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control