Duda Con Ribbon

[caritaje]

Ho,a a todos estos ultimos dias he estado curioseando con la cinta de opciones de access 2007, y al tratar de probrar con un ejemplo me he encontrado con una traba, este es mi codigo xml

<button id="Largirucho2" label="Largirucho2" size="large" imageMso="Risks" onAction="openForm" />

y este es el de visual:

Public Sub openForm(ctrl As IRibbonControl, Pressed)
If (ctrl.Id = "Largirucho2") Then
If (CurrentProject.AllForms("frmSector").IsLoaded) Then
'Cierro formulario
DoCmd.Close acForm, "frmSector"
Else
'Abro formulario
DoCmd.openForm "frmSector"
'Actualizo control
End If
If (Not gobjRibbon Is Nothing) Then
gobjRibbon.InvalidateControl "Largirucho2"
End If
End If
End Sub

Creo que el error esta en la parte marcada en negritas ya que el editor de visual no reconoce esa palabra como parte del lenguaje, tengo seleccionada la libreria microsoft office 12.0, asi que eso no es, mas si le quito esa parte el boton no hace nada y el horror que manda es ASEGURESE QUE LA MACRO O LA FUNCION EXISTE Y UTILIZE LOS PARAMETROS CORRECTOS

ESPERO ME PUEDAN AYUDAR.. GRACIAS!!