Ejemplo empleando EjecutaAlClic para emular una subrutina
Estos son los guiones empleados:
Ejecuta[{"SetColor[" + destino + ",1,0,0]"}] ---- en el botón miBotón
y en cada uno de los puntos:
destino = "A"
EjecutaAlClic[miBotón]
... obviamente, cambiando la ''A'' por el correspondiente nombre del punto.