Cuando queramos añadir
a nuestros programas una barra de menús, la tarea será
sencilla utilizando el editor de menús. Para activar el
editor de menús debemos ir al menú Herramientas de
Visual Basic y allí escoger la opción Editor de menús…,
o bien hacer clic sobre el botón correspondiente 
de
la barra de herramientas Estandar. Aparecerá una ventana
como la siguiente:
Caption: será
el texto que aparecerá en el menú. Si se desea que
alguna de las letras del menú sirva para acceder de
forma rápida a dicho menú, se debe situar el carácter &
antes de esa letra. Como se puede observar en cualquier
programa Windows esto hará que ese carácter del menú
aparezca subrayado. (Este mismo carácter & puede
utilizarse de modo análogo en el caption de un
CommandButton. Si pulsamos la combinación de teclas
‘ALT+ el carácter escogido’ será como hacer click con el
ratón en dicho botón) Para incluir un separador entre
distintas opciones del menú, esta propiedad debe ser –
(un guión).
Name: es
el nombre con el que nos referiremos al menú desde el
código.
Shortcut: asocia
una combinación de teclas para acceder al menú de forma
abreviada.
Checked: determina
si aparecerá o no una marca de verificación a la
izquierda de la opción del menú.
Enabled: si
esta casilla no está marcada, dicho menú no será
accesible apareciendo difuminado.
Visible: determina
si dicho elemento del menú podrá verse o no.
Estas tres últimas
propiedades pueden modificarse en tiempo de ejecución
estableciendo su valor a True o a False.
Cuando queramos que un
menú esté dentro de otro, es decir, sea un submenú, no
tendremos más que tabularlo en el editor de menús
mediante el botón 
del
mismo.
El único evento
disponible para un menú es Click , que corresponde a la
selección de la opción, independientemente de que ésta
se realice con el ratón o con el teclado.
Para crear un menú
emergente o menú contextual no tememos más que crearlo
como si se tratase de un menú normal y hacerlo
invisible. Para abrirlo haremos uso del método PopupMenu,
como se muestra en el siguiente ejemplo.
If Button
= vbRightButton Then PopupMenu
nombremenú
