FoxPro/Visual FoxPro - CONTAINER

Hola, a todos los programadores!

A ver si pueden ayudarme.

Quisiera incorporar controles dentro de un CONTAINER, y hacer que el CONTAINER se mueva y arrastre todos los controles que hay en él, pero, sin crear una clase. Hay algunas formas para hacerlo? Gracias.

[Init del Formulario]
Thisform.Addproperty("AlowMov",.f.)

[Objeto Container]
Modifica la propiedad MousePointer como te guste que se vea el puntero.

[MouseDown]
Thisform.alowmov=.t.

[MouseMove]
LPARAMETERS nButton, nShift, nXCoord, nYCoord
if thisform.alowmov
this.Left=nxCoord
THIS.TOP=nyCoord
endif

[MouseUp]
Thisform.alowmov=.f.