Class MyClass
  Dim Eintrag_ as String
  Property Eintrag as String
    Get
        Return Me.Eintrag_
    End Get
     Set (Value as String)
         Me.Eintrag_ = Value
     End Set 
  End Property 
End Class
Aufruf der Klasse  ...
Sub Form_Load
   Dim Mc1 as new MyClass
   Dim Mc2 as new MyClass
   Mc1.Eintrag = "Test" ' Eintrag zuweisen 
   ' #  Und hier ist das Problem  
   Mc2 = Mc1 
   MsgBox Mc2.Eintrag
   ' #  Die Methode Eintrag von Mc2 ist aber leider leer ..
 End Sub