foreach(PropertyDescriptor descriptor in TypeDescriptor.GetProperties(obj))
{
    string name=descriptor.Name;
    object value=descriptor.GetValue(obj);
    Console.WriteLine("{0}={1}",name,value);
}

        For Each descriptor As PropertyDescriptor In TypeDescriptor.GetProperties(DateTime.Now)
            Dim name As String = descriptor.Name
            Dim value As Object = descriptor.GetValue(DateTime.Now)
            Console.WriteLine("{0}={1}", name, value)
        Next