Ayuda con SmartMenuXP1

Xavier
13 de Septiembre del 2004
Os cuento me he creado un menu con dicha utilidad observando algunos ejemplos, pero ninguno explica como llamar a un menú si le he insertado imagen. Os pongo el codigo a ver si se entiende más claro.


'este código crea el menu
Private Sub pBuildMenus()

With SmartMenuXP1.MenuItems

' Menu > File...
.Add 0, "mnuFile", , "&File"
.Add "mnuFile", , smiPicture, "Load Data File", pGetPicture("OpenFile"), vbCtrlMask + vbShiftMask, vbKeyL
.Add "mnuFile", , smiSeparator
.Add "mnuFile", "keyExit", , "Exit", , vbAltMask, vbKeyQ
End With

SmartMenuXP1.Font.Name = "Ms Sans Serif"
SmartMenuXP1.Font.Size = 9
End Sub

' con este codigo le digo que ha de hacer cada cosa pero no se que keyid tengo que poner para que este menu .Add "mnuFile", , smiPicture, "Load Data File", pGetPicture("OpenFile"), vbCtrlMask + vbShiftMask, vbKeyL me haga una llamada a otro formulario
Private Sub SmartMenuXP1_Click(ByVal ID As Long)
With SmartMenuXP1.MenuItems
Select Case .Key(ID)
Case "keyExit"
Unload Me
Case "keyAbout"
frmAbout.Show vbModal

End Select
End With
End Sub