VB.NET looping through properties of a self defined object

I use the toString()-method mostly for debugging. So it would be usefull if there was a way to loop through all properties of a object. So I wrote this function: [code lang="VB.NET"] Public Overrides Function toString() As String Dim PropertyInfo As PropertyInfo() = Me.GetType().GetProperties() Dim PropertyItem As PropertyInfo Dim str As String = "" For Each PropertyItem In PropertyInfo str += PropertyItem.Name & ": " & _ Me.GetType().GetProperty(PropertyItem.Name).GetValue(Me, Nothing).ToString() & ", " Next Return str End Function [/code] It displays the name of the property and the value of that property. Why is this function usefull? Because you don't have to modificate the toString()-method each time you add a new property, the code is reusable and so on. Why did I post it on my blog? Because I spent a lot of time searching for something like this on google, msdn2, ... EDIT: don't forget to import System.Reflection [code lang="VB.NET"] Imports System.Reflection [/code]