>How about
>
>for i=1 to ThisForm.ControlCount
> ThisForm.Control(i).ResetToDefault("MousePointer")
>next

Good thought, but in trial what it does is reset it to the original value for that type of object, rather than what you had set it to (either during runtime or by modifying the class).

Another point when testing this (and I started this error), is the command should be x.ControlS(i), not x.Control(i).

Also, of course, Vlad is correct that for each control on ThisForm, you would have to recurse the function, picking up any controls on that control.