Все переписал ее полностью... Долбаный VB не позволяет создавать динамически свойства в созданном классе, пришлось добавить второй параметр.
Не совсем все это удобно и идеально, но может вам и пригодится... Мне увы она не подошла для моих идей
( Гребаный VB )