Private Function CopyProperties(Of sourceType As {Class, New}, targetType As {Class, New})(ByVal source As sourceType, ByVal target As targetType) As targetType
  Dim retValue As New targetType
 
  Dim sourceProperties() As PropertyInfo = source.GetType().GetProperties()
  Dim targetProperties() As PropertyInfo = GetType(targetType).GetProperties()
 
  For Each sourceProp As PropertyInfo In sourceProperties
    For Each targetProp As PropertyInfo In targetProperties
      If sourceProp.Name <> targetProp.Name Then Continue For
 
      ' Only try to set property when able to read the source and write the target
      If sourceProp.CanRead And _
            targetProp.CanWrite Then
        ' We want to leave System types alone
        If sourceProp.PropertyType.IsClass And _
              Not sourceProp.PropertyType.FullName.StartsWith("System.") Then
          Dim sT As Type = Type.GetType(sourceProp.PropertyType.AssemblyQualifiedName)
          Dim tT As Type = Type.GetType(targetProp.PropertyType.AssemblyQualifiedName)
 
          Dim params(0 To 1) As Object
          ' If property is an array or a list, we need to treat it different
          If sourceProp.GetIndexParameters().Length = 0 Then
              params(0) = sourceProp.GetValue(source, Nothing)
              params(1) = targetProp.GetValue(target, Nothing)
 
            targetProp.SetValue(retValue, _
                                GenericCopyProperties(sT, tT).Invoke(Me, params), _
                                Nothing)
          Else
            Dim count As Integer = GetType(sourceType).InvokeMember("Count", BindingFlags.GetProperty, Nothing, source, Nothing)
            For i As Integer = 0 To (count - 1)
              Dim obj As Object() = New Object() {i}
              params(0) = sourceProp.GetValue(source, obj)
              If target IsNot Nothing Then
                params(1) = targetProp.GetValue(target, obj)
              End If
 
              retValue.GetType().InvokeMember("Add", BindingFlags.InvokeMethod, Nothing, _
                                              retValue, New Object() {GenericCopyProperties(sT, tT).Invoke(Me, params)})
            Next
          End If
        Else
            targetProp.SetValue(retValue, sourceProp.GetValue(source, Nothing), Nothing)
        End If
      End If
 
      Exit For
    Next
  Next
 
  Return retValue
End Function

Private Function GenericCopyProperties(ByVal sourceType As Type, ByVal targetType As Type) As MethodInfo
  Return Me.GetType().GetMethod("CopyProperties").MakeGenericMethod(sourceType, targetType)
End Function

Dim params(0 To 1) As Object
params(0) = sourceObject
params(1) = targetObject
 
targetObject = GenericCopyProperties(sourceObject.GetType(), targetObject.GetType()).Invoke(Me, params)