Visual Basic - Ayuda con Shell

Hola a todos:

Tengo 4 programas que genere en Visual Basic, lo que quiero hacer es que en otro programa en VB crear un Menu y desde ese menu ejeutar o llamar a esos 4 programas qe tenia, se que con Shell lo puedo hacer pero como, solo he encontrado la forma de hacerlo con un boton pero no con un menu, le agradezco su ayuda bye.

Lo estoy haciendo de esta forma pero no se si sea la correcta , ya no son 4 los que tengo que meter son 45 , habra otra forma de hacer esto mas facil y sin tanto codigo.

Private Sub ArmaReportes_Click()
Dim Activa As Long
Activa = Shell("C:\Reportes.exe", 1)
End Sub

apretas Ctrl+E y se abre el editor de menues

donde dice Name pones "Mnu_Programa1"
donde dice caption pones "Ejecutar programa1"
click en "siguiente" y asi agregas todos los items

luego en el codigo fuente agregas:

Private sub Mnu_Programa1_Click()
Shell Nombre_archivo1 ' nombre_archivo va la ruta del programa
end sub

Private sub Mnu_Programa2_Click()
Shell Nombre_archivo2
end sub

...y asi sucesivamente