Obrigado, Agora pelo menos sei como devo prosseguir. Visto isso tive que dar um jeitinho:

Dimension aLista[1]
oListaObjetos = CreateObject("ListadeObjetos")
Select tabela
Scan
aLista[I] = CreateObject("Classe1")
aLista[I].Load(tabela.IdDoRegistro)
oListadeObjetos.Add(aLista[I])
I = I + 1
Dimension aLista[I]
EndScan

Perco por ter que criar o objeto várias vezes, mas um não interferirá no outro.

Fox []s.