¿Cómo hacer una barra de herramientas en un lenguaje sencillo? ¿Existe un código fuente detallado?

El código es un poco complicado de escribir, por lo que es mejor configurarlo directamente en las propiedades.

.Subrutina _toolbar_clicked

.Índice del botón de parámetro, entero

.Inicia el juicio (índice del botón = 0)

juez(botón). índice = 1)

.judge(índice del botón = 3)

.judge(índice del botón = 4)

.judge(índice del botón = 5)

.Juicio (índice del botón = 6)

.Default