[Resolvido]menu e submenu

Saudações a todos


eu estou tentando criar sub menu usando um sub formulário minha duvida é se isso e possível ,  deixá-lo invisível usar codigo
quando  passar o mouse ele aparecer .

Boa noite

Veja se ajuda

https://dl.dropboxusercontent.com/u/8169944/Menu%20Assis.zip

Assis muito bom exemplo

estou estudando e tentando criar o meu só que ainda não consegui

Como eu faço para cancelar o comando abaixo ao retirar o mouse

Private Sub REL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Me.meucomando.Visible = True

em detalhe do formulário no evento ao mover do rato
Me.submenu.Visible = False

o código funcionou so que agora ta dando erro , 'erro em tempo de execução '2165' depois que fecho o relatório .

como eu retiro esse erro?

Teste

Private Sub Detalhe_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Me.submenu.Visible = False
End Sub

Muito obrigado , resolvido