Bonjour
Amorphe, en tout cas je ne comprend pas la fin de ton message.
Dans ton module de classe de la classe CTest1 tu veux mettre un autre CTest1, tu fais :
private mSuiv as CTest1
private sub Class_Initialize()
mSuiv=nothing
end sub
public property get Suivant as CTest1
Suivant=mSuiv
end property get
public property Set Suivant(byval pValue as CTest1)
set mSuiv=pValue
end property set
Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation)
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)