C#

public static void disposeComponents(Component f, bool disposeForms) {<br />
			foreach (FieldInfo fieldInfo in f.GetType().GetFields(BindingFlags.Instance | BindingFlags.NonPublic)) {<br />
				object value = fieldInfo.GetValue(f);<br />
				if(value is Form && disposeForms == false) continue;<br />
				if(value is Form && f is Form) {<br />
					if( ((Form)f).ParentForm == value ) continue;<br />
					if( ((Form)f).MdiParent == value ) continue;<br />
				}<br />
				if(value is IDisposable && value != null) {<br />
					((IDisposable)value).Dispose();<br />
					fieldInfo.SetValue(f, null);<br />
				}<br />
			}<br />
			System.GC.Collect();<br />
		}

Public Class Contact
 ' Class Constructor
  Overloads Sub New(  )
  End Sub

End Class