Visual Basic - Ayuda Urgente con Smart MenuXP

Mucho Gusto, talvez aguien me puede orientar con un problema que tengo con Smart Menu Xp, ya logre armar el menu, pero no logro o no se como poner la instruccion que para cuando el usuario seleccione el menu en la opcion de abrir, me ejecute tal formulario y asi con las otras opciones del menu.

Agradesco de antemano a los colegas que me ayuden.

Así creas un menú en el Load del Form o con un Modulo de carga:
'Ojo, yo lo creo desde un modulo clase, por eso iContacto, es la ventana donde se crea el menu. IconoMenu(?), es un procedimiento que dice que icono colocaré, (ahí te lo coloco), el lo coge de un Listimage

With iContacto.sMenu1.MenuItems
.Add 0, "MnArchivo", , "&Archivo", IconoMenu(1)
.Add "MnArchivo", "MnNuevo", , "&Nueva Información", IconoMenu(1), vbCtrlMask, vbKeyN, , False
.Add "MnArchivo", , smiSeparator
.Add "MnArchivo", "MnAbrir", , "&Abrir Información", IconoMenu(2), vbCtrlMask, vbKeyA, , False
.Add "MnArchivo", , smiSeparator
.Add "MnArchivo", "MnGuardarComo", , "&Guardar Como..."
.Add "MnArchivo", , smiSeparator
.Add "MnArchivo", "MnAbrirContactos", , "&Con&tactos...", IconoMenu(7)
.Add "MnArchivo", "MnAbrirTareas", , "&Tareas...", IconoMenu(8)
.Add "MnArchivo", "MnAbrirNotas", , "&Notas...", IconoMenu(9)
.Add "MnArchivo", , smiSeparator
.Add "MnArchivo", "MnAbrirUsuarios", , "&Usuarios...", IconoMenu(10)
.Add "MnArchivo", "MnAbrirProfesionales", , "&Profesionales...", IconoMenu(11)
.Add "MnArchivo", "MnAbrirConsultorios", , "Con&sultorios...", IconoMenu(12)
.Add "MnArchivo", "MnAbrirEntidades", , "E&ntidades...", IconoMenu(13)
.Add "MnArchivo", "MnAbrirOperadores", , "&Operadores...", IconoMenu(14)
.Add "MnArchivo", , smiSeparator
.Add "MnArchivo", "MnEliminar", , "&Eliminar Información", IconoMenu(4), , vbKeyDelete, , False
.Add "MnArchivo", , smiSeparator
.Add "MnArchivo", "MnConsultar", , "&Consultar Información", IconoMenu(5), vbCtrlMask, vbKeyB, , False
.Add "MnArchivo", , smiSeparator
.Add "MnArchivo", "MnVistaPre", , "&Vista Preliminar...", , , , , False
.Add "MnArchivo", "MnImprimir", , "&Imprimir Información", IconoMenu(6), vbCtrlMask, vbKeyI, , False
.Add "MnArchivo", , smiSeparator
.Add "MnArchivo", "MnSalir", , "&Salir"

.Add 0, "MnVer", , "&Ver"
.Add "MnVer", "MnBarraH", , "Barra de &Herramientas"
.Add "MnBarraH", "MnBarraV", smiCheckBox, "Barra de Ventanas", , vbCtrlMask, vbKeyW, smiChecked
.Add "MnBarraH", "MnBarraR", smiCheckBox, "Barra de Registros", , vbCtrlMask, vbKeyR, smiChecked
.Add "MnVer", "MnBarraE", smiCheckBox, "Barra de &Estado", , vbCtrlMask, vbKeyE, smiChecked
.Add "MnVer", , smiSeparator
.Add "MnVer", "MnPanel", smiCheckBox, "&Panel de Aplicaciones", , , , smiChecked
.Add "MnVer", , smiSeparator
.Add "MnVer", "MniContacto", smiCheckBox, "&iContacto para Hoy", , , vbKeyF5, smiUnchecked
.Add "MnVer", "MnAgenda", smiCheckBox, "Mi &Agenda", , , vbKeyF6, smiUnchecked
.Add "MnVer", "MnContactos", smiCheckBox, "Mis &Contactos", , , vbKeyF7, smiUnchecked
.Add "MnVer", "MnTareas", smiCheckBox, "Mis &Tareas", , , vbKeyF8, smiUnchecked
.Add "MnVer", "MnNotas", smiCheckBox, "Mis &Notas", , , vbKeyF9, smiUnchecked
.Add "MnVer", , smiSeparator
.Add "MnVer", "MnAcciones", smiCheckBox, "&Seguimiento de Acciones", , , , smiUnchecked
.Add "MnVer", "MnErrores", smiCheckBox, "Seguimiento de &Errores", , , , smiUnchecked
.Add "MnVer", , smiSeparator
.Add "MnVer", "MnTareasVencerse", , "Tareas a &Vencerse...", IconoMenu(15), vbCtrlMask, vbKeyY
.Add "MnVer", , smiSeparator
.Add "MnVer", "MnPermisos", , "Permisos y Derechos..."

AQUI TERMINA LA CARGA

Private Function IconoMenu(inNoIcono As Integer) As StdPicture
Set IconoMenu = iContacto.ImageMenu.ListImages(inNoIcono).ExtractIcon
End Function

AQUI ES DONDE EL EJECUTA LOS COMANDOS
sMenu1 es el SmartMenu los cases, es el nombre que les das cuando los creas, fijate en la creacion de arriba cuando creé el botón de nuevo. con el case de nuevo. los icProCmd... es el nombre de los procedimientos donde ejecuto el codigo, puedes remplazarlo y colocar tus instrucciones.

Private Sub sMenu1_Click(ByVal ID As Long)
With sMenu1.MenuItems
Select Case sMenu1.MenuItems.Key(ID)
Case "MnNuevo"
icProCmdNuevo
Case "MnAbrir"
icProCmdAbrir
Case "MnGuardarComo"
icProCmdGuardarComo
Case "MnAbrirContactos"
MnAbrirContactos_Click
Case "MnAbrirTareas"
icProCmdTareas
Case "MnAbrirNotas"
icProCmdNotas
Case "MnAbrirUsuarios"
icProCmdUsuarios
Case "MnAbrirProfesionales"
icProCmdProfesionales
Case "MnAbrirConsultorios"
icProCmdConsultorios
Case "MnAbrirEntidades"
icProCmdEntidades
Case "MnAbrirOperadores"
icProCmdOperadores
Case "MnEliminar"
icProCmdEliminar
Case "MnConsultar"
icProCmdConsultar
Case "MnVistaPre"
icProCmdVistaPrevia
Case "MnImprimir"
icProCmdImprimir
Case "MnSalir"
icProCmdSalir
Case "MnBarraV"
icProCmdBarraV
Case "MnBarraR"
icProCmdBarraR
Case "MnBarraE"
icProCmdVerBarraE
Case "MnPanel"
icProCmdPanel
Case "MniContacto"
icProCmdVeriContacto
Case "MnAgenda"
icProCmdVerAgenda
Case "MnContactos"
icProCmdVerContactos
Case "MnTareas"
icProCmdVerTareas
Case "MnNotas"
icProCmdVerNotas
Case "MnAcciones"
icProCmdVerAcciones
Case "MnErrores"
icProCmdVerErrores
Case "MnTareasVencerse"
icProCmdVerTareasVencerse
Case "MnPermisos"
icProCmdVerPermisos
Case "MnEstadistica"
icProCmdEstadistica
Case "MnCalendarioFestivo"
icProCmdCalendario
Case "MnRespaldo"
icProCmdRespaldo
Case "MnCambio"
icProCmdContraseña
Case "MnLicencias"
icProCmdLicencias
Case "MnOpciones"
icProCmdOpciones
Case "MnAyuda"
icProCmdAyudas
Case "MnAcerca"
icProCmdAcercaDe
End Select
End With
End Sub

Muchisimas Gracias no sabes del apuro que me has sacado, espero que algun dia te pueda devolver la ayuda.

Jorge Hedman

Private Sub Menu()
With SmartMenuXP1.MenuItems
.Add 0, "KeyCat", , "&Sitio"
.Add "keyCat", "keyTrans", , "Transacciones", ImageList2.ListImages(2).Picture
.Add "keyCat", "keyTags", , "Administración de Tarjetas", ImageList2.ListImages(29).Picture
.Add "keyCat", "keyNA", , "Nivel de Acceso", ImageList2.ListImages(38).Picture
.Add "keyCat", "keyLectoras", , "Control Automático de Lectoras", ImageList2.ListImages(35).Picture
.Add "keyCat", "keyUsuarios", , "Usuarios", ImageList2.ListImages(11).Picture
End With
End Sub


Private Sub SmartMenuXP1_Click(ByVal ID As Long)
With SmartMenuXP1.MenuItems

Select Case .Key(ID)
Case "keyTrans": transacciones.show
Case "keyTags": VerTarjetas.show
Case "keyNA": VerNivelAcceso.show
Case "keyLectoras": VerLectoras.show
Case "keyUsuarios": VerUsuarios.show

End Select
End With
End Sub

Espero que le entiendas ;)