[Resolvido]Ativar Sub Sub menu suspenso

Boa noite.
Nesse exemplo não estou conseguindo ativar o sub menu 3 ao clicar na 1 opção do menu 2.
Apresenta a mensagem de erro incompatível em:

Private Sub rotM2Op1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call DestacaOpcao(rotM2Op1)
   Call AtivaMenu("APEMenu3")
End Sub




Qual seria a codificação correta?

Resolvido.
Obrigado.