FoxPro/Visual FoxPro - Agregar metodo click a un boton desde una funcion

Hola amigos.

Ante todo un saludo ya que es mi primer mensaje en el grupo. Estoy
migrando una aplicacion de la empresa que esta hecha en Fox 2.6 para
DOS a Visual FoxPro9. Tengo un problema que quizas es un poco tonto
pero que no encuentro solucion ya que me estoy familiarizando con la
plataforma.

Tengo que crear una funcion que genere unos botones, de modo que la
persona que vaya a usar esta funcion, unicamente ponga en el codigo

Boton("Hola","Funcion a ejecutar") y este comando lo que haga es crear
un boton con el Caption "Hola" y cuando le des click ejecute la
funcion que desea (previamente declarada en alguna parte del codigo).
Hasta ahora me funciona bien para dibujar los botones, pero no puedo
crearle el metodo Click a los botones, me genera cantidad de errores
usando distintos comandos como BindEvent, Define Click, etc. No se si
alguien puede instruirme un poco a ver como es la mejor forma de
generar esto. Aqui le senvio mi codigo.

Public oHandler

* Variables Globales

PUBLIC gnPosicionx,gnPosiciony,gnContador,gcNombreboton

gnContador = 9
gnPosicionx = 10
gnPosiciony = 0

Set Talk Off

DO FORM home.scx

Boton("Hola")
Boton("Chao")

Set Talk On
RETURN

FUNCTION Boton (nombre)

gnContador = gnContador+1
gcNombreboton = "boton" + TRIM(STR(gnContador,2))
gnPosiciony = gnPosiciony + 30

With home
.AddObject ('boton', 'commandbutton')
With .boton
.Caption = nombre
.Top = gnPosiciony
.Left = 10
.Height = 27
.Name = gcNombreboton
.Visible = .T.
Endwith

Endwith

RETURN

PROCEDURE Click
Colocar aqui los comandos a ejecutar

Hola Angel

Lo puse entre los dos Endwith, sobre el primer Endwith, debajo de los dos Endwith, y me da error al ejecutar por type/mismatch con los With.

Que podria hacer?

Intentá definiendo el boton como una clase en vez de hacerlo con WITH ( Es una sugerencia. Yo no probé si funciona )

DEFINE CLASS cmdMiBoton AS CommandButton && Se crea el botón
Caption = nombre
Top = gnPosiciony
Left = 10
Height = 27
PROCEDURE Click
Acá vá el procedimiento
ENDDEFINE

Saludos cordiales