Public Sub ReSet(xxx As Object)
For Each pi As PropertyInfo In xxx.GetType.GetProperties
Try
   Select Case pi.PropertyType
      Case Is GetType(String)
         pi.SetValue = ""
      Case Is GetType(Double)
         pi.SetValue = 0
      Case Is GetType(Object)
         pi.SetValue = Nothing
      Case Else
         pi.SetValue = Nothing
   End Select
Catch ex As Exception : End Try
Next
End Sub