Copy Class Properties

Class NameClass

    'declare and implement many properties and methods

    'provide Copy method
    Public Function Copy() As NameClass
        Dim newClass As NameClass
        newClass.Property1 = Me.Property1
        newClass.Property2 = Me.Property2
        Return New newClass
    End Function

    'another members of class

End Class

Dim Xglobal as new NameClass
With Xglobal
   'here set properties
End With

Dim Xlocal as new NameClass = Xglobal.Copy() 'simple?

Public class NameClass
   Public Function clone() As NameClass
        Dim ObjOriginal = Me
        Dim ObjCopied As New NameClass
        'set desired property values from original object to the object you want to copy
        ObjCopied.Property1 = ObjOriginal.Property1
        Return ObjCopied 
    End Function
'other property & methods...
End Class

Dim Xglobal as new NameClass
Dim Xlocal as new NameClass
XLocal = XGlobal.Clone()