FoxPro/Visual FoxPro - OptionGROUP

Hola:
Tengo un problema estoy usando optiongroup, donde tengo 4 opciones:
1 teclado
2 mouse
3 floppy
4 monitor
Entonces cuando se le de a cualquiera de las 4 opciones me va a guardar esa palabra en un text ya que uso bases de datos con tablas
En mi codigo tengo esto:

DEFINE CLASS opcion AS OptionGroup
ButtonCount = 4
PROCEDURE asignar
DO CASE
CASE ThisForm.OptionGroup1.Value = 1
ThisForm.txtnombre.text = "Teclado"
CASE ThisForm.OptionGroup1.Value = 2
ThisForm.txtnombre.text = "Mouse"
CASE ThisForm.OptionGroup1.Value = 3
ThisForm.txtnombre.text = "Monitor"
CASE ThisForm.OptionGroup1.Value = 4
ThisForm.txtnombre.text = "Floppy"
ENDCASE
enddefine

Solo que me manda un error sobre no tener clases anidadas, creo que es porque uso clases y aparte esa clase que define para las opciones.
Donde debo de tener el codigo (si es que esta bien) para que se compile correctamente.
Gracias

Veo ciertas cosas que posiblemente tiren el error, por ejemplo usa algo asi:

DEFINE CLASS opcion AS OptionGroup
ButtonCount = 4
PROCEDURE asignar
DO CASE
CASE This.Value = 1
_screen.activeform.txtnombre.text = "Teclado"
CASE This.Value = 2
_screen.activeform.txtnombre.text = "Mouse"
CASE This.Value = 3
_screen.activeform.txtnombre.text = "Monitor"
CASE This.Value = 4
_acreen.activeform.txtnombre.text = "Floppy"
ENDCASE

Como veras no tienes que hacer referencia a la forma ya que el codigo se corre dentro
del mismo objeto, segundo posiblemente dentro de la clase no puedes usar a la forma.
Por eso prueba con el _screen.activeform, segundo lo mejro es poner los textboxes junto con el optiongroup en un una clase container, asi el codigo sera mejor y mas claro.

Miriam:
El problema que tú tienes esta relacionado con la herencia, dado que VFP no es un lenguaje de POO puro como en el caso de Java, C++, etc por lo tanto no soporta el concepto de herencia múltiple.

Si tú deseas agregar objetos en tiempo de ejecución, tienes que agregarlos al contenedor inmediato, es decir si el caso es un formulario tienes que invocar el método:
Objeto.AddObject(cNombre, cClase, [, cClaseOLE] [, aInit1, aInit2 ...])
El objeto puede ser nativo (optiongroup) o un container que tú definas.

Cualquier ampliación puedes hacerla.

Saludos cordiales desde El Salvador.

Marvin Callejas