Limpiar propiedades objeto...

Tengo una clase que representa digamos una persona (y en general tengo n
clases que representan objetos de este tipo: personas, animales,
zonasgeográficas, cada una con sus propiedades y de <>tipos string,
intenger, etc

Class Persona
Private mvarNombre As String
Public Property Nombre() As String
Get
Nombre = ConvierteTexto(mvarNombre)
End Get
Set(ByVal Value As String)
mvarNombre = Value
End Set
End Property
End Class

quiero implementar una función (clase) que pasando como parámetro como
object tipo Persona (en mi ejemplo) recorra cada propiedad y la establezca a
su valor vacio, es decir, si es string a "" si es numerico a 0, etc
algo así como con un for each recorrer cada propiedad... y dependiendo del
tipo inicilaizarla con algún valor.
Se puede?


Hugo A. Gsell
Sgo del Estero
Argentina