C#

statusStrip1.BackColor = Color.Red;

Imports System.Reflection

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim a As New TheFromClass With {.Hello = "hello there", .Name = "myclass"}
        Dim b As New TheToClass With {.GoodBye = "later dude", .Hello = "wuzup"}

        Dim ta As Type = GetType(TheFromClass)
        Dim tb As Type = GetType(TheToClass)

        Dim obj As Object, PropertyName As String, ToPI As PropertyInfo = Nothing

        MsgBox(b.Hello)

        For Each FromPI As PropertyInfo In ta.GetProperties
            PropertyName = FromPI.Name
            obj = FromPI.GetValue(a, Nothing)

            ToPI = tb.GetProperties.Where(Function(p) p.Name = PropertyName).FirstOrDefault

            If ToPI IsNot Nothing Then ToPI.SetValue(b, obj, Nothing)
        Next

        MsgBox(b.Hello)

        End
    End Sub
End Class

Public Class TheFromClass
    Public Property Hello As String
    Public Property Name As String
End Class

Public Class TheToClass
    Public Property GoodBye As String
    Public Property Hello As String
End Class

public static void CopyFields(object source, object target)
{
    if (source == null)
        throw new ArgumentNullException("source");
    if (target == null)
        throw new ArgumentNullException("target");

    //loop through source object
    FieldInfo[] fiSource = source.GetType().GetFields(BindingFlags.Instance | BindingFlags.Public | BindingFlags.NonPublic);
    FieldInfo[] fiTarget = target.GetType().GetFields(BindingFlags.Instance | BindingFlags.Public | BindingFlags.NonPublic);
    foreach (FieldInfo fiS in fiSource)
    {
        //check if that field exists in target
        foreach (FieldInfo fiT in fiTarget)
        {
            if (fiT.Name == fiS.Name)
            {
                //copy value
                fiT.SetValue(target, fiS.GetValue(source));
                //stop inner loop
                break;
            }
        }
    }
}