FoxPro/Visual FoxPro - Crear clase

DEFINE CLASS MiToolBar AS TOOLBAR
*-- Propiedades
CAPTION = "Saludo"
SHOWTIPS = .T.
SHOWWINDOW = 1 && En formulario de nivel superior
NAME = "MiToolBar"
*-- Objetos
ADD OBJECT cmdEsp AS COMMANDBUTTON WITH ;
HEIGHT = 24, WIDTH = 32, ;
PICTURE = HOME(1) + "graphics\icons\flags\flgspain.ico", ;
CAPTION = "", NAME = "cmdEsp", TOOLTIPTEXT = "Saludo"
ADD OBJECT sep1 AS SEPARATOR WITH ;
NAME = "sep1"
ADD OBJECT cmdBra AS COMMANDBUTTON WITH ;
HEIGHT = 24, WIDTH = 32, ;
PICTURE = HOME(1) + "graphics\icons\flags\flgbrazl.ico", ;
CAPTION = "", NAME = "cmdBra", TOOLTIPTEXT = "Saudação"
ADD OBJECT cmdUSA AS COMMANDBUTTON WITH ;
HEIGHT = 24, WIDTH = 32, ;
PICTURE = HOME(1) + "graphics\icons\flags\flgusa02.ico", ;
CAPTION = "", NAME = "cmdUSA", TOOLTIPTEXT = "Greet"
ADD OBJECT cmdGer AS COMMANDBUTTON WITH ;
HEIGHT = 24, WIDTH = 32, ;
PICTURE = HOME(1) + "graphics\icons\flags\flggerm.ico", ;
CAPTION = "", NAME = "cmdGer", TOOLTIPTEXT = "Grüß"
*-- Metodos
PROCEDURE cmdEsp.CLICK
MESSAGEBOX("Hola !", 64, "Saludo")
ENDPROC
PROCEDURE cmdBra.CLICK
MESSAGEBOX("Olá !", 64, "Saudação")
ENDPROC
PROCEDURE cmdUSA.CLICK
MESSAGEBOX("Hello !", 64, "Greet")
ENDPROC
PROCEDURE cmdGer.CLICK
MESSAGEBOX("Hallo !", 64, "Grüß")
ENDPROC
ENDDEFINE

Como debería de hacer o que líneas no deberían ir al crearse una clase. Pregunto porque tratando de hacerla me pregunta si esta basada en: ActiveDoc, CheckBox,ComboBox, etc.

Una pregunta, habiendo un diseñador de clases, por que lo hacer por codigo?

estas en lo cierto plinio ....