Visual Basic - El objeto no admite esta propiedad o método

Hola a todos; tengo un problema con vb y suplico que si alguien sabe como solucionarlo me colabore.

Estoy desarrollando un prollecto donde tengo clases y colecciones de clases. en las colecciones hay un metodo ADD (Creado por el generador automatico de clases de vb) que se supone recibe los parametros para crear y agregar un nuevo objeto a la coleccion ( el que le pase como parametro). pero resulta que algunos objetos tienen demasiadas propiedades como para poner al usuario a escribirlas todas. Entonces modifique los parametros de la funcion y declare que se pasara un parametro del tipo de objeto que se desee agregar.

Me explico:

Así lo genera VB de manera automatica

Public Function Add(Name as string , wId as variant, hWnd as long , mColor as long, ....) as VspTask
(La lista de parametros es como de 20); VspTask es la clase que yo cree.

Dim objNewMember As VspTask
Set objNewMember = New VspTask
'establecer las propiedades que se transfieren al método
objNewMember.Name = Name
objNewMember.wId = wId
objNewMember.hWnd = hwnd

... sigue con las otras propiedades

If Len(sKey) = 0 Then
mCol.Add objNewMember
Else
mCol.Add objNewMember, sKey
End If
'devolver el objeto creado
Set Add = objNewMember
Set objNewMember = Nothing
end function

Yo lo tengo Así:

Public Funtion Add(NewVspTask as VspTask) as VspTask

Dim objNewMember As VspTask
Set objNewMember = New VspTask
objNewMember.Name = NewVspTask .name
objNewMember.wId = NewVspTask .wId
objNewMember.hWnd = NewVspTask .hWnd
... sigue con las otras propiedades

Set Add = objNewMember
Set objNewMember = Nothing

end function

y resulta que al ejecutarlo me sale el error 438: "El objeto no admite esta propiedad o método"

Agadeco a la persona que pueda ayudarme... es muy importante para mi.

Gracias.

Cordialmente,

Camilo Bernal.

En que linea....

El error ocurre cuando llamo el metodo desde una instancia de la clase:

Por ejemplo:

Dim Task as new Ui.TaSk 'CLase Que contiene el metodo ADD
Dim NewTask as New VspTask ' Objeto que deseo agregar a la coleccion de la clase

With NewTask
Name = "Interacciones"
wId = 215
hWnd = me.hWnd
mColor = rgb(255,255,0)
... Las otras propiedades
end With

Task.Add(NewTask) 'Aqui es donde se genera el error.

Gracias.

pueden probar con el ayudante de office en linea donde se pueden agregar objetos!!!
" Esto no es un error "

Muy bueno!

el tal camilo ha estado esperando mas de tres años a que le dieras la solución.