That was my speel chekcer messing things up!

Before posting it read, in the class -

Public Property Set propLab(lab As MSForms.Label)

Public Property Let propID(n As Long)

Glad you got it working

Regards,
Peter T


wrote in message
oups.com...
Hey Peter, thanx a lot.

Just in case someone else wants to use this code, i had to modify the
end of your code replaced by:

Set clsScrolls(x).spin = sbcontrol
Set clsScrolls(x).prop = lcontrol
clsScrolls(x).propped = x

Once again, thank you.

Thomas