Vas a ser lo siguiente:
Buscas en el respectivo menú Proyecto -> Componentes y buscas:
Microsoft Windows Common Controls 6.0
Este juego de controles también salen si abres el Visual Basic en endición Empresarial en vez de la Estándar.
De los controles que se desplegaron, el que necesitas es el control Toolbar el cual insertas en el Form.
Por defecto se pondrá arriba así que en sus propiedades (las que muestra VB) pones Align: 0 - vbAlignNone
Y lo mueves a donde lo quieres poner y lo pones más pequeño.
Luego seleccionas al Toolbar y pulsas botón derecho y propiedades y te vas a la pestaña Botones, y ahí creas tu respectivo botón, en Caption: su nombre, y en Key: el nombre que lo identifica por código. Ambos nombres pueden ser iguales. En Style: 5 - tbrDropdown
Abajo en la Frame: ButtonMenus
Insertas los botones necesarios, por ejemplo, dos botones y sus nombres en Text y Key, pueden ser iguales.
Por ejemplo para el botón 1:
Text: Formulario y para el Key: Formulario
Para el botón 2:
Text: Calculadora y para el Key: Calculadora
Hasta ahí ya tienes el botón que indicas.
Luego hay que codificar el siguiente evento con esto:
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
Case "Formulario": Form2.Show vbModal
Case "Calculadora": Shell "C:WINDOWSCALC.EXE"
End Select
End Sub
¡Claro!, este ejemplo despliega el botón para mostrar otros dos botones, uno que llama a un Form2 y otro a un programa externo. Poniendo un control CommonDialog puedes desplegar ventanas de abrir.
Para colocarle una imagen a la izquierda, algo que se preguntó hace poco, debes de colocar un control ImageList y pulsando botón derecho, propiedades, lo siguiente:
En la pestaña General es para el tamaño, puedes probar con 16x16 y luego te vas a la pestaña Imágenes y ahí buscas los iconos que necesitas. Cada vez que buscas un icono, se enumera en Key, también le puedes poner un nombre en Key, pero no es necesario.
Vuelves al toolbar, botón derecho, propiedades y en la pestaña General indicas ImageList: ImageList1
Luego nuevamente a la pestaña Botones y en Image: 1 ó Image: Nombre del icono (en caso de haberle colocado un nonbre)
Debería quedar igual a esto:
