FoxPro/Visual FoxPro - EVENTOS A OBJETO

Hola amigos del foro,

Quiero que me colaboren con lo siguiente:

he creado por codigo botones y quiero que a su vez cuando le de click a cada uno de ellos me haga un procedimiento especifico, como hago

para lograr esto?, este es el codigo:

THISFORM.ADDOBJECT(obj,'container')
WITH
.HEIGHT =10
.WIDTH=10
.VISIBLE=.T.
.TOP=15
.LEFT=15
.BACKCOLOR=RGB(255,0,0)
ENDWITH

Muchas gracias por su colaboración.

Primero debes definir la clase. Por ejemplo un botón:

DEFINE Class ExitButton AS CommandButton
Visible = .T.
Height = 60
Width = 60
Caption = "Salir"
Top = _Screen.Height - 90
Left = _Screen.Width - 90
tooltiptext="Cierra la aplicación"
PROCEDURE Click
*Aquí pones el código a ejecutar cuando se da un clic
endproc
ENDDEFINE

Primero debes definir la clase. Por ejemplo un botón:

DEFINE Class ExitButton AS CommandButton
Visible = .T.
Height = 60
Width = 60
Caption = "Salir"
Top = _Screen.Height - 90
Left = _Screen.Width - 90
tooltiptext="Cierra la aplicación"
PROCEDURE Click
*Aquí pones el código a ejecutar cuando se da un clic
endproc
ENDDEFINE

--devilzito--