Ciao,
implementa una funzione pubblica chiamata .Copy() che restituisce la copia dell'oggetto.
Eccoti un esempio:
Public Class TestObject
Private _Prop1 As Integer
Private _Prop2 As String
Public Property Prop1() As Integer
Get
Return _Prop1
End Get
Set (value As Integer)
_Prop1 = value
End Set
End Property
Public Property Prop2() As Integer
Get
Return _Prop2
End Get
Set (value As Integer)
_Prop2 = value
End Set
End Property
Public Function Copy() As TestObject
Dim NewTestObject As New TestObject
NewTestObject.Prop1 = Me.Prop1
NewTestObject.Prop2 = Me.Prop2
Return NewTestObject
End Function
End Class
Spero di esserti stato utile
Enjoy It 
http://blogs.dotnethell.it/Regulator/